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1  Introduction 

Fracture  connectivity  is  important  in  assessing  the  flow  behavior  of  a  fracture  formation  as  well 
as  the  resistance  of  a  rock  mass.  Dershowitz  (1984)  introduced  parameters  to  describe  fracture 
connectivity  that  are  based  on  fracture  intersection  geometry.  The  more  familiar  parameters 
include  C\,  which  is  the  number  of  intersections  between  fractures  per  unit  volume  and  C&, 
defined  as  the  extent  of  a  cluster  of  fractures  in  the  direction  i. 

Meyer  (1999),  incorporated  into  GEOFRAC  the  capability  to  group  the  modeled  fractures  into 
isolated  clusters  of  fractures  and  calculate  the  physical  extent  of  these  clusters  in  three- 
dimensions.  The  physical  extents  of  the  fracture  sub-networks  in  three  dimensions  are  described 
using  the  parameters  Qx,  Cgy,  and  C%z  that  were  proposed  by  Dershowitz  (1984).  These  are  the 
dimensions  of  a  box  in  the  x,  y  and  z  directions  that  can  completely  contain  the  fracture  sub¬ 
network.  Meyer  used  this  feature  to  study  the  connectivity  of  the  fracture  networks  in  the  Boston 
Basin  and  the  simulations  show  that  the  sub-networks  tend  to  propagate  a  greater  distance  in  the 
vertical  direction  as  opposed  to  the  horizontal  direction  suggesting  more  vertical  connectivity  in 
terms  of  physical  extent. 

The  work  in  this  report  will  proceed  from  determining  the  existence  of  the  connections  between 
the  fractures  and  building  the  fracture  clusters  to  calculating  the  geometry  and  orientations  of 
these  connections,  the  main  contribution  being  an  algorithm  for  calculating  the  geometry  of  each 
fracture  intersection.  First,  a  background  of  the  fracture  modeling  concepts  developed  by 
Ivanova  (1998)  that  are  used  in  GEOFRAC  will  be  presented.  The  development  of  the  algorithm 
for  determining  the  geometry  of  the  fracture  intersections  will  then  follow.  The  capability  of 
modeling  the  intersections  will  then  be  used  to  study  the  fracture  intersections  in  the  Boston 
Basin.  The  simulations  will  be  performed  using  five  different  modeling  volume  sizes:  103,  123, 
143,  153  and  203  m3.  The  resulting  distribution  of  intersection  lengths  and  the  distribution  of  the 
orientations  of  the  fracture  intersections  will  be  studied  for  the  various  modeling  volume  sizes. 
The  distribution  of  the  intersection  orientations  is  also  compared  to  the  calculated  orientations 
(i.e.  the  orientations  to  be  expected  using  the  mean  orientations  of  the  fracture  sets)  in  order  to 
assess  the  degree  in  which  each  fracture  set  is  involved  in  the  formation  of  these  intersections. 

Another  parameter  that  describes  fracture  connectivity  and  is  linked  directly  to  the  flow  behavior 
of  a  fracture  network  is  the  well-test  flow  dimension.  Well-tests  are  performed  to  determine  the 
flow  properties  as  well  as  the  geometry  of  the  fracture  network  in  a  rock  mass.  The  well-test 
flow  dimension  describes  how  the  flow  properties  and  the  area  of  the  flow  paths  vary  with 
distance  from  the  well.  In  order  to  obtain  the  well-test  flow  dimension  for  a  simulated  fracture 
network,  finite  element  flow  simulations  are  needed.  However,  Dershowitz  (1996)  proposed  a 
method  for  estimating  the  well-test  flow  dimension  directly  from  the  change  in  the  flow  area  or 
flow  width  with  distance  from  the  well  (distance-flow  area  or  distance-flow  width  relationships). 
This  method  requires  that  the  geometry  of  each  intersection  as  well  as  the  geometry  of  the  flow 
paths  from  the  well  into  the  fracture  network  be  known.  Since  the  flow  in  a  fracture  network 
passes  through  individual  fractures  by  way  of  the  fracture  intersections  located  on  these 
fractures,  the  flow  area  has  been  defined  as  a  function  of  the  lengths  of  these  fracture 
intersections.  Dershowitz  suggested  that  the  flow  width  existing  between  two  intersections  be 
the  average  of  the  lengths  of  these  two  intersections  multiplied  by  a  factor  that  depends  on  the 
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orientation  of  the  line  connecting  the  midpoints  of  these  intersections.  This  opens  the  possibility 
that  a  very  short  intersection  will  be  paired  with  a  very  long  intersection  resulting  in  a  flow  width 
that  may  be  representative  of  neither  intersection.  Hence,  two  new  approaches  for  deriving  the 
distance-flow  width  relationships  will  also  be  presented.  The  first  one  calculates  the  flow  width 
based  on  the  length  of  an  individual  intersection  (i.e.  no  averaging  is  done),  the  second  approach 
divides  the  modeling  volume  into  smaller  cubical  elements  to  which  groups  of  individual 
intersections  are  assigned.  The  cubical  elements  act  as  individual  conductive  elements  and  the 
connections  among  these  cubical  elements  represent  the  pathways  that  the  flow  takes.  After  the 
flow  widths  of  the  paths  in  the  fracture  networks  are  computed,  the  distance-flow  width 
relationships  for  each  network  are  constructed.  The  flow  dimension  values  are  then  derived  from 
these  relationships.  Calculating  the  flow  dimension  from  distance-flow  width  relationships  is  an 
approximate  approach,  the  three  different  methods  of  defining  the  flow  width  leading  to  three 
different  approaches.  These  being  approximate  approaches,  questions  regarding  their  accuracy 
arise.  It  is  therefore  necessary  to  compare  the  flow  dimension  results  from  these  approaches  to 
those  of  finite  element  flow  simulations. 

As  shown  in  Figure  1.1,  the  flow  dimension  can  be  thought  of  as  a  link  between  the  connectivity 
of  a  fracture  network  and  its  flow  behavior.  The  connectivity  can  be  described  using  the 
geometries  of  the  fracture  intersections  by  the  parameters  C\  to  C&.  The  flow  behavior,  on  the 
other  hand,  can  be  described  using  the  well-test  flow  dimension.  The  flow  dimension  is 
generally  obtained  by  running  finite  element  flow  simulations  on  the  fracture  network  but 
physically,  the  flow  dimension  also  represents  the  change  in  flow  area  with  radial  distance  from 
the  well.  The  approximate  methods  mentioned  in  the  previous  paragraph  calculate  this  change  in 
flow  area  based  on  the  lengths  of  the  individual  fracture  intersections. 
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Figure  1.1  -  Fracture  connectivity  and  flow  behavior 


15 


2  GEOFRAC:  Fracture  Modeling  Procedures 

The  fracture  model  on  which  GEOFRAC  is  based  was  developed  by  Ivanova  (1998).  Ivanova’s 
model,  in  turn,  is  an  extended  version  of  Veneziano’s  model.  Veneziano  used  two  stochastic 
processes  to  model  the  fracture  network.  First,  an  anisotropic  Poisson  network  of  planes  is 
generated  in  three-dimensional  space.  Then  a  Poisson  network  of  lines  is  generated  on  these 
planes  to  produce  polygonal  shapes.  The  polygons  then  undergo  a  random  process,  a  so  called 
marking  procedure,  that  decides  if  a  polygon  is  either  fractured  or  intact  rock.  An  obvious 
limitation  of  this  model  is  that  the  resulting  fractures  generated  on  one  specific  plane  remain 
coplanar  after  the  marking  procedure.  Ivanova  eliminated  this  limitation  by  introducing  another 
stochastic  process  that  modifies  the  location  (by  shifting)  and  orientation  (by  rotation)  of  the 
fractures  in  order  to  model  specific  geologic  features.  Ivanova  also  introduced  combinations  of 
criteria  to  be  used  in  the  marking  procedure  as  well  as  the  capability  to  mark  the  created 
polygons  as  a  function  of  their  distances  to  a  structure  (marking  with  respect  to  faults).  Meyer 
(1999),  later  on,  enabled  the  user  to  define  the  marking  zones  more  sharply  thereby  introducing  a 
fourth  stochastic  process.  To  summarize,  the  four  stochastic  processes  are: 

•  Primary  Process  -  Modeling  the  stress  field  orientation  using  a  homogeneous,  anisotropic 
Poisson  plane  network  (Figure  2.1). 

•  Secondary  Process  -  The  planes  are  tessellated  into  smaller  polygons  using  a  homogeneous 
Poisson  line  process.  The  polygons  are  marked  as  fractured  or  intact  rock  according  to 
marking  rules.  Figure  2.2  and  Figure  2.3. 

•  Tertiary  Process  -  Zones  are  defined  within  the  modeling  volume  and  polygons  located  in  the 
zones  are  retained  or  discarded  according  to  probabilities  assigned  to  each  zone.  Cutting 
probabilities  are  assigned  to  structures  such  as  faults  to  control  the  propagation  of  fractures 
through  the  fault.  Figure  2.4 

•  Quaternary  Process  -  The  remaining  fracture  polygons  are  translated  and  rotated  to  reflect 
major  geologic  features.  Figure  2.5  and  Figure  2.6. 
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Figure  2.1  -  Primary  process,  Poisson  plane  network  (from  Ivanova,  1998) 


Figure  2.2  -  Poisson  line  tessellation  on  the  planes  (from  Ivanova,  1998) 
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Figure  2.5  -  Translation  of  remaining  polygons  (from  Ivanova,  1998) 


Figure  2.6  -  Rotation  of  remaining  polygons  (from  Ivanova,  1998) 

As  far  as  fracture  connectivity  is  concerned,  GEOFRAC’s  capabilities  are  limited  to  the  division 
of  the  fracture  network  into  sub-networks  of  isolated  fracture  clusters.  GEOFRAC  also 
calculates  the  horizontal  and  vertical  extents  of  these  sub-networks.  The  work  in  this  report  adds 
to  GEOFRAC  the  capability  to  model  the  individual  intersections  formed  between  the  fractures. 
The  algorithm  for  the  calculation  of  the  length  of  intersection  will  make  use  of  elements  and 
procedures  found  in  Ivanova  (1998).  Important  concepts  developed  by  Ivanova  (1998)  are 
presented  below  as  a  background  to  the  algorithm  for  determining  the  geometry  of  the 
intersections  that  will  be  discussed  in  Chapter  3. 
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2.1  Defining  the  Modeling  Volume 

The  modeling  volume  is  the  space  defined  by  the  input  values  Xm,  Ym,  and  Zb0X  (see  Figure 
2.7).  Only  the  fractures  within  the  modeling  volume  will  be  considered.  Figure  2.7  also  shows 
the  global  coordinate  system  (OXYZ). 


X 


Figure  2.7  -  Modeling  volume  and  the  global  axes 

The  space  shown  in  Figure  2.7  represents  the  basic  modeling  volume  used  in  GEOFRAC.  The 
top  surface  can  also  be  entered  as  quadratic  or  a  cubic  surface.  A  quadratic  surface  is  defined  in 
the  program  by  six  floating  values  (A,  B,  C,  D,  E  and  F)  and  it  is  represented  in  three- 
dimensional  space  by  the  following  equation: 

Z  =  AX2  +  BXY  +  CY2  +  DX  +  EY  +  F 
Equation  2.1 

Use  of  a  quadratic  surface  to  define  the  top  of  the  modeling  volume  helps  model  the  topographic 
surface  more  realistically.  A  cubic  surface  on  the  other  hand  is  defined  by  10  floating  values  (A, 
B,  C,  D,  E,  F,  G,  H,  I  and  J)  in  the  equation: 

Z  =  AX 3  +  BX  2Y  +  CXY2  +  DY3  +EX2  +  FXY  +  GY2  +  HX  +  IY  +  J 

Equation  2.2 

A  cubic  surface  is  used  to  model  folds. 
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2.2  Generation  of  a  Plane  in  Space 

After  the  modeling  volume  is  defined,  planes  are  generated  to  intersect  it.  Ivanova  referred  the 
equation  of  a  plane  to  the  frame  of  reference  of  a  fracture  set  (Oxyz).  For  clarity,  the  frames  of 
reference  that  Ivanova  used  to  define  planes  and  the  tessellation  lines  are  shown  in  Figure  2.8  to 
Figure  2.10  and  they  are  defined  below. 

OXYZ  -  Global  Frame  of  Reference  (+Y  is  North  and  +X  is  East,  Figure  2.8) 

Oxyz  -  Frame  of  Reference  of  a  Fracture  Set  (defined  by  0  and  <&,  the  azimuth  and  the  latitude 
of  the  pole  z,  respectively,  Figure  2.8  and  Figure  2.9) 

O’x’y’z’  -  Local  Frame  of  Reference  of  a  Plane  (Figure  2.10) 

Ox”y”z”  -  Frame  of  Reference  Parallel  to  that  of  a  plane  but  with  the  same  origin  as  the  Global 
Frame  (Figure  2.9  and  Figure  2.10) 


Z 
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Variation  of  orientation 
about  the  Mean  Pole  z 


defined  by  (0,<{>) 


Figure  2.9  -  Axes  formed  by  the  mean  pole  z  of  a  fracture  set  and  the  pole  z”  of  a  generated  plane 


Z 


A 


Figure  2.10  -  Local  frame  of  reference  of  a  plane 

To  create  the  planes  in  the  Primary  process  as  in  Figure  2.1,  Ivanova  used  the  frame  of  reference 
of  a  fracture  set  as  the  basis  around  which  the  orientations  and  locations  of  the  generated  planes 
must  vary.  The  equation  of  a  plane  in  the  frame  of  reference  of  the  fracture  set  (Oxyz)  is: 

xsin#sin^  +  ycos#sin^  +  zcos0  =  d 

Equation  2.3 

where  d  is  the  distance  from  the  global  origin  to  the  plane  (Figure  2.10)  and  the  pair  (0,<j)) 
represents  the  azimuth  and  latitude  of  the  normal  to  the  plane.  The  joint  probability  density 
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function  of  (9,<|))  can  be  inferred  from  measured  data.  The  possible  PDF’s  include  uniform  or 
partial  uniform,  one-parameter  or  two-parameter  Fisher  and  Bingham  and  constant  orientation 
(Ivanova,  1998). 

To  produce  a  homogeneous  Poisson  plane  network  of  intensity  p  is  equivalent  to  performing  a 
Poisson  point  process  in  the  region: 

{(d,  0,  <|)) :  <  d  <  °°,0  <  0  <  7t,0  <  <j)  <  7t} 

with  non -homogeneous  intensity  function  of  the  type: 

|i(d,0,<t>)  =  pfe(>(0,<j)) 


where  f © (0,  ^»)  is  the  joint  probability  density  function  of  0  and  <(>  while  p  is  a  positive 
constant  (Ivanova,  1998). 

2.3  Poisson  Line  Tessellation  on  the  Plane 

Once  the  planes  have  been  generated,  Poisson  lines  are  created  on  these  planes  to  divide  them 
into  polygons.  The  equation  of  the  line  (shown  below)  is  referred  to  the  O’x’y  V  axes. 

jc'cos#  +  y'sin  a  =  D 
Equation  2.4 

The  parameters  a  and  D  are  shown  below  in  Figure  2.11. 


Figure  2.11  -  Tessellation  line  defined  by  (X  and  D 


To  create  a  homogeneous  Poisson  line  network  of  intensity  X  is  equivalent  to  a  Poisson  point 
process  in  the  region: 
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{(D,a) :  0  <  D  <  °°,0  <  a  <  2n} 

with  intensity  function  of  the  points  of  the  type: 

X(D,  a)  =  Xfa  (a) 

where  X  is  a  positive  constant  and  fa(a)  is  the  probability  density  function  of  a  in  the  interval 
[0,27t] . 

GEOFRAC  then  assembles  the  polygons  formed  by  the  Poisson  line  tessellation.  The  next 
section  discusses  how  the  resulting  polygons  are  classified  as  fractured  or  intact  rock. 

2.4  Marking  the  Polygons  Formed  by  the  Poisson  Line  Tessellation 

After  the  polygons  have  been  formed,  GEOFRAC  calculates  the  area,  equivalent  radius  and  the 
elongation  of  the  polygons  among  other  things.  The  program  then  discards  the  polygons 
according  to  user-defined  limits  on  parameters  such  as  shape  (convexity,  magnitude  of  internal 
angles  and  elongation)  and  size  (area  or  equivalent  radius)  of  the  polygons.  The  remaining 
polygons  are  termed  “good”  polygons  and  the  process  is  called  the  marking  process. 

For  the  original  polygons  (i.e.  all  those  formed  by  the  line  tessellation),  the  mean  and  covariance 
matrices  for  the  number  of  vertices  and  the  polygon  area  are  given  by  (Ivanova,  1998): 

(71 2  -  8)  7l(7l2  -  8) 

2~~  Ik2 

n(n2  -  8)  n2(n2-2) 

2X2  2X4  . 

N  =  Number  of  vertices 
A=  Area  of  the  polygon 

Ivanova  defined  “good”  polygons  (using  the  shape  as  the  basis)  with  the  following  rules: 

1.  The  polygon  is  convex  and  has  at  least  four  vertices 

2.  All  internal  angles  are  at  least  60° 

3.  The  polygon  elongation  is  not  more  than  1 .6 

Using  the  Best  Linear  Unbiased  Estimator,  Ivanova  calculated  values  of  =  n]  for  n  >  5  in 

terms  of  the  original  E[A ]  and  showed  that  the  expected  area  of  a  polygon  given  it  has  n  vertices 
is  E[A\N  =  n]  =  kE[A]  and  that  k>  2  for  the  range  of  n  values  considered.  This  means  that 
larger  polygons  will  tend  to  have  more  vertices.  It  also  follows  that  due  to  rule  number  1  above, 
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it  is  more  likely  for  a  large  polygon  than  it  is  for  a  smaller  polygon  to  be  retained  as  a  potential 
fracture.  As  a  consequence,  the  expected  area  of  “good”  polygons  (1?[A'])  is  larger  than  the 
expected  area  of  the  polygons  produced  by  the  line  tessellation.  Therefore,  the  input  value  for 
the  expected  area  of  the  fractures  has  to  be  underestimated  by  a  factor  CA  to  accommodate  the 
rise  in  the  expected  area  as  a  result  of  the  marking  procedure.  The  factor  CA  is  defined  as 
(Ivanova,  1998): 

r  _  E[A'] 

A  E[A) 

E[A']  -  Expected  area  of  “good”  polygons 

£[A]  =  Expected  area  of  the  polygons  produced  by  the  line  tessellation 

Another  consequence  of  the  marking  procedure  is  that  the  total  area  of  the  fractures  is 
substantially  decreased  resulting  in  a  lower  value  of  fracture  intensity,  P32  compared  to  the 
desired  value.  The  desired  value  of  P32  is  achieved  in  the  Primary  process  (Figure  2.1  on  page 
18)  from  the  generated  planes  (i.e.  the  total  area  of  the  generated  planes  divided  by  the  volume  is 
the  desired  P32).  A  fraction  of  the  area  of  each  generated  plane  will  be  discarded  as  a  result  of 
the  marking  procedure  making  the  final  Pn  lower  than  the  desired  intensity.  It  is  therefore 
necessary  to  overestimate  the  total  plane  area  to  accommodate  the  reduction  in  fracture  area  due 
to  the  marking  procedure.  This  is  done  by  overestimating  the  Poisson  plane  intensity,  pi ,  by 
dividing  it  by  the  factor  y  •  This  factor  is  defined  as  (Ivanova,  1998): 


A'r  =  Total  area  of  “good”  polygons 

Ap  =  Total  area  of  polygons  originally  produced  by  the  line  tessellation  (or  the  area  of  the 
generated  plane  that  is  within  the  modeling  volume) 

Numerical  simulations  by  Ivanova  (1998)  show  that  when  the  marking  rule  follows  only  the 
three  guidelines  listed  above,  only  40%  of  the  total  area  of  the  polygons  produced  by  the  Poisson 
line  tessellation  (or  the  area  of  the  original  plane)  are  considered  fractured  rock.  The  simulations 
also  reveal  that  following  the  same  three  marking  guidelines,  the  resulting  expected  area  of 
“good”  polygons  is  2.2  times  the  expected  area  of  the  polygons  formed  by  the  Poisson  line 
tessellation.  This  corresponds  to  values  of  y  =  0.4  and  CA  =  2.2 .  Marking  by  shape  can  also  be 
combined  with  other  criteria  such  as  relative  size.  Table  2.1  below  shows  the  values  of  CA  and 
y  for  different  marking  rules.  The  first  entry  shows  the  values  for  marking  according  to  the 
three  rules  given  previously.  The  succeeding  entries  show  the  values  for  marking  according  to 
shape  and  according  to  the  criterion  listed.  For  example,  when  marking  according  to  the  three 
original  rules  and  following  the  additional  rule  that  A',.  >  2 E[A]  (the  area  of  the  z'th  “good” 
polygon  must  be  greater  than  twice  the  expected  area  of  the  polygons  originally  produced  by  the 
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line  tessellation),  the  values  CA  =  5.0  and  y  =  0.30  must  be  used.  GEOFRAC  allows  a 
maximum  input  value  of  y^  =  0.4 . 


MARKING  RULE 

cA 

Y 

According  to  the  3  rules  above 

2.2 

0.4 

A\>E[A) 

3.6 

0.36 

A\  >  2 E[A] 

5.0 

0.30 

R'tJ>3E[R'e] 

1.8 

0.38 

R'ei>2E[R'e] 

1.4 

0.23 

A\  >  E[A] ,  R'e  i  >  3E[R'e  ] 

3.6 

0.36 

A\>E[A ],  R'ei>2E[R'e] 

3.4 

0.36 

Table  2.1  -  Values  of  the  factors  CA  and  y  for  different  marking  rules  (from  Ivanova,  1998) 


Theoretically,  CA  and  y  do  not  depend  on  the  line  intensity,  X,  but  only  on  the  marking  rule  as 
long  as  the  marking  rule  only  governs  shape  and  relative  size  (Ivanova,  1998). 

To  summarize,  the  fracture  intensity  and  the  fracture  size  are  modeled  in  the  following  manner: 

1.  The  desired  mean  fracture  size  and  fracture  intensity  are  chosen  (  E[A']  and  P32 ) 

2.  The  Poisson  plane  intensity  is  calculated  as  fi  =  P32/y 

3.  The  Poisson  planes  are  generated  in  the  modeling  volume 

4.  The  expected  area  of  the  polygons  formed  by  the  Poisson  line  tessellation  is  computed  using 
the  input  expected  area:  E[ A]  =  E[ A']/ CA 

5.  The  Poisson  lines  are  generated  using  an  intensity  X  =  (jil  E[A})xn 

6.  The  marking  procedure  is  performed. 

GEOFRAC  also  has  the  capability  of  introducing  variations  in  fracture  intensity  in  space.  This  is 
done  by  marking  the  polygons  as  fractured  (or  intact)  as  a  function  of  distance  to  a  pre-defined 
structure.  This  capability  allows  one  to  model  more  realistic  fracture  intensities  throughout  the 
modeling  volume.  For  example,  more  intense  fracturing  may  occur  in  the  vicinity  of  a  fault 
compared  to  areas  far  away  from  it.  Higher  probabilities  of  retention  (assigning  as  fractured)  can 
be  assigned  near  the  fault  to  simulate  this  condition.  The  area  to  which  a  certain  probability  of 
retention  is  assigned  is  called  a  zone.  Each  zone  is  bounded  by  the  minimum  and  maximum 
distance  within  which  the  assigned  retention  probability  is  applicable.  Meyer  (1999)  improved 
on  the  zone  marking  process  by  introducing  a  “box”  marking  algorithm.  The  user  can  define  an 
irregular  box  and  assign  a  retention  probability  to  any  polygon  located  within  the  box.  A 
“cutting”  probability  can  also  be  assigned  to  discontinuities  such  as  faults  to  control  the 
termination  or  continuation  of  a  fracture  that  intersects  the  fault  (see  Figure  2.4). 
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2.5  Translation  and  Rotation  of  the  Remaining  Polygons 

So  far,  the  fractures  (polygons)  all  lie  on  the  originally  defined  planes  and  this  does  not 
necessarily  correspond  to  reality.  It  is  possible  to  translate  (shift)  the  fractures  by  translating 
them  by  a  distance  dz’^.  The  quantity  dz’max,  defined  below,  is  added  or  subtracted  to  the  z’ 
coordinates  of  each  of  the  vertices  of  the  selected  fractures. 


dz'  max  =  C 


(E[R\  ])2 
R' 


Equation  2.5 


where 

R'e  =  equivalent  radius  of  a  “good”  polygon 

E[R'e  ]  =  expected  value  of  the  equivalent  radius 

C  =  a  constant  that  dictates  the  degree  of  coplanarity  of  the  fractures 


The  lower  the  value  of  C  the  more  coplanar  the  resulting  fractures.  Equation  2.5  also  suggests 
that  the  amount  of  shift  is  dependent  on  the  size  of  the  fracture.  Smaller  fractures  have  larger 
shift  distances  compared  to  larger  fractures. 

Fracture  polygon  rotation  is  another  process  that  is  used  in  GEOFRAC  to  model  more  closely  the 
change  in  the  direction  of  the  stress  field  (and  the  change  in  fracture  orientation)  relative  to  those 
assumed  in  the  Primary  process.  For  example,  Figure  2.12  shows  the  orientations  of  the  fracture 
traces  based  on  the  stress  field  orientation  used  in  the  Primary  process.  Figure  2.13  shows  the 
traces  of  the  same  fractures  in  Figure  2.12  subjected  to  rotation  to  reflect  the  existence  of  a  dome 
structure. 

Ivanova  (1998)  describes  details  regarding  the  fracture  translation  procedure  as  well  as  fracture 
rotation.  Other  geologic  conditions  where  these  processes  apply  are  also  discussed  extensively. 
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Figure  2.12  -  Trace  outcrop  of  fractures  with  orientations  related  to  the  general  stress  field  directions  (from 
Ivanova,  1998) 


Figure  2.13  -  Trace  outcrop  of  the  fractures  from  Figure  2.12  with  their  orientations  also  related  to  a  circular 
dome  structure  (from  Ivanova,  1998) 
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3  Procedure  for  Obtaining  the  Intersection  Lengths  between 
Fractures 

3. 1  Overview 

The  original  version  of  GEOFRAC  has  also  been  modified  by  Meyer  to  include  the  capability  of 
assembling  the  fractures  into  networks.  The  current  endeavor  aims  to  calculate  the  intersection 
lengths  between  the  fractures  generated  by  GEOFRAC.  The  processes  involving  the  generation 
of  planes  and  lines  as  well  as  the  marking  procedure  remain  as  described  above.  New  data 
organization  and  calculation  procedures  will  be  presented  in  the  following  sections  in  order  to 
determine  the  fracture  intersection  geometry. 

After  a  plane  is  generated  within  the  modeling  volume,  the  algorithm  calculates  the  coordinates 
of  the  vertices  of  the  polygon  formed  by  the  intersection.  The  Poisson  lines  are  generated  on  the 
plane  and  the  coordinates  of  the  intersection  points  between  the  lines  are  determined.  The 
coordinates  of  the  points  are  organized  and  stored  in  such  a  way  that  it  will  be  easy  to  access  and 
use  them  in  the  next  step,  polygon  assembly.  In  the  polygon  assembly  process,  the  vertices  are 
grouped  into  sets  that  define  the  fractures.  When  the  fracture  polygons  have  been  assembled,  the 
parameters  needed  to  apply  the  marking  procedure  can  be  obtained.  As  discussed  in  Chapter  2, 
this  procedure  discards  polygons  with  properties  that  do  not  comply  with  user-defined  limits  and 
the  remaining  polygons  are  then  translated  in  proportion  to  their  sizes.  The  most  important  new 
step  is  the  next  one  in  which  the  intersection  between  two  fracture  polygons  is  calculated.  Meyer 
(1999)  extended  the  capabilities  of  GEOFRAC  to  include  the  ability  to  divide  the  entire  fracture 
network  into  smaller  sub-networks.  Meyer  then  studied  the  connectivity  of  the  individual  sub¬ 
networks. 

3.2  Intersection  between  the  Plane  and  the  Modeling  Volume 

The  first  step  in  finding  the  vertices  of  the  fracture  polygons  is  to  find  the  vertices  of  the  plane  on 
which  the  Poisson  lines  will  be  generated.  The  vertices  formed  by  the  line  tessellation  will  be 
computed  every  time  a  new  line  is  formed  on  the  plane. 

For  clarity,  the  equation  of  the  plane  presented  in  Chapter  2  will  be  repeated  here.  In  the  frame 
of  reference  of  the  fracture  set,  the  equation  of  a  plane  is  given  by: 

x  sin  6  sin  <j>  +  y  cos  6  sin  <j>  +  z  cos  (f)  =  d 

Equation  2.3 


The  global  form  of  this  equation  is: 


(cos  0  sin  6  sin  (/>  +  sin  0  cos  0  cos  6  sin  fp  +  sin  ©  sin  €>  cos  (f))X 
+  (cos  ©  cos  O  cos  6  sin  0  +  cos  ©  sin  O  cos  0  -  sin  0  sin  6  sin  <j))Y 
+  (cos  $  cos  0  -  sin  <I>  cos  6  sin  <p)Z  =  d 

Equation  3.1 
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For  convenience,  the  above  equation  will  be  written  as: 

aX+bY  +  cZ  =  d 
Equation  3.2 

For  a  modeling  volume  that  is  cubical  in  shape  (Figure  3.1),  the  six  bounding  planes  are  given 

by: 

x  =  r  =  z=zto 

Y  =  -Ym  Z  =0 

Substituting  each  of  these  values  into  Equation  3.2,  the  following  are  obtained: 

Intersections  with  planes  X  =Xm  and  X  =  -Xm 

bY  +  cZ  =  d  +  aXm 

Equation  3.3 


Figure  3.1  -  Global  axes  and  modeling  volume 

Intersections  with  planes  Y  =Ym  and  Y  =  -Ym 

aX  +cZ  =  d  +  bYm 

Equation  3.4 
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Intersections  with  planes  Z  =  Zb0X  and  Z  =  0 

aX  +  bY  =  d  -  cZb0X 

aX+bY  =  d 
Equation  3.5 


In  Equation  3.3,  substitutions  for  Y  or  Z  can  be  made.  Y  =  Ym  or  Y  =  -Ym  can  be  plugged  in 
and  corresponding  values  of  Z  are  solved  for.  Z  =  Zbox  or  Z  =  0  can  be  substituted  and  values  of 
Y  can  be  solved  for.  These  values  should  satisfy  either  (0  <  Z  <  Zb0X)  or  (-Ym  <  Y  <  Ym) 
depending  on  what  is  solved  for  (the  point  is  within  the  modeling  volume).  For  example,  in 
Figure  3.2,  the  vertices  V2  and  V3  are  found  on  the  line  of  intersection  (LOI)  between  the  plane 
and  the  X  =  Xm  boundary.  When  the  substitutions  Y  =  Ym  or  Y  =  -  Ym  are  made  into  the 
equation  of  the  LOI,  Z2  or  Z3  are  found  and  are  both  within  the  modeling  volume. 


Modeling 

Volume 


A 


-'box 


V 


Figure  3.2  -  Modeling  volume  with  a  generated  plane 

Equation  3.4  and  Equation  3.5  are  used  to  find  the  other  vertices  in  the  same  manner,  imposing 
the  limiting  values  on  the  solved  X  or  Z  in  Equation  3.4  and  on  X  or  Y  in  Equation  3.5.  The 
fact  that  the  vertices  of  the  plane  will  always  be  located  along  the  edges  of  the  cubical  modeling 
region  makes  it  easier  to  locate  them.  At  least  two  of  the  three  coordinates  of  a  vertex  will  be 
equal  to  the  X,  Y,  or  Z  values  at  the  edges.  For  example,  V4  has  coordinates  (-Xm,  -Ym,  Z4),  Vi 
has  (-Xm,  Ym,  Zi)  and  so  on.  A  special  case  where  all  three  of  the  coordinates  of  a  vertex  are 
equal  to  the  values  at  the  edges  is  when  the  plane  intersects  a  comer  of  the  modeling  volume. 
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Figure  3.3  shows  another  mode  of  intersection.  Here,  the  plane  intersects  the  modeling  volume 
on  the  Z  =  0  and  Z  =  Zb0\  planes.  The  plane  in  Figure  3.2  will  also  intersect  the  Z  =  0  and  Z  = 
Zbox  planes  but  the  intersection  will  not  occur  within  the  modeling  volume. 


X 


Figure  3.3  -  Possible  mode  of  intersection  between  the  plane  and  the  modeling  volume 

Figure  3.4  shows  that  planes  can  intersect  the  modeling  volume  on  all  of  the  boundaries.  In  this 
case,  there  will  be  “valid”  coordinates  that  satisfy  all  six  equations,  Equation  3.3  to  Equation 
3.5. 


X 


Figure  3.4  -  Two  intersecting  generated  planes 
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3.3  Poisson  Line  Intersection  Calculations  and  Data  Organization 

The  equation  of  a  line  in  the  frame  of  reference  of  the  plane  (O’x’y’z’)  is: 

jc'cosfl!  +  /sin#  =  D 

Equation  2.4 


Where  a  and  D  are  shown  in  Figure  3.5. 


Figure  3.5  -  Generated  Poisson  line  with  the  normal  vector  and  the  direction  vectors 


The  intersection  point  between  two  lines  with  a,  D  and  cti,  Di  is  given  by: 


sin#! 

1 

x' 

sin or(cot arsing  -  cos a) 

cos  a  -cot  a  sin 

~  D~ 

y. 

cos  a, 

1 

A. 

cos  a(im  a  cos  ax  -  sin  a) 

sin  oc  —  tan  cc  cos  cxx 

Equation  3.6 


The  coordinates  of  an  intersection  point  are  checked  to  see  if  it  is  indeed  within  the  modeling 
volume.  If  it  is  not,  then  it  is  discarded.  The  valid  points  can  then  be  arranged  in  a  matrix  as 
shown  in  Table  3.1.  All  points  in  one  row  belong  to  a  single  line;  therefore,  the  line  segments 
(which  are  also  sides  of  the  polygons)  that  lie  on  this  line  can  be  determined  from  the  points 
found  on  this  row.  The  diagonals  are  shown  dashed. 

This  is  a  symmetric  matrix.  Some  of  the  cells  will  be  vacant  because  of  the  possibility  of  two 
lines  being  parallel  or  of  the  lines  intersecting  somewhere  outside  of  the  modeling  volume. 
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The  vectors  for  a  line  should  also  be  stored  as  information.  The  vector  for  the  line  is  defined 

A  A 

only  by  the  angle  a  in  Equation  2.4.  The  vector  normal  to  the  line  is  cos #i'+  sin#  f  so  the  line 

A  A  A  A 

itself  will  have  either  -sin#i'+cos# /  or  sin  #f- cos#  f  as  unit  vectors  depending  on  which 
direction  the  line  is  traversed.  This  information  can  also  be  stored  as  data  in  the  matrix  in  Table 
3.1. 

For  each  point  of  intersection,  there  are  usually  four  adjacent  points,  two  along  each  of  the  lines 
intersecting  at  that  point.  For  example,  in  Figure  3.6  point  A  is  the  point  of  intersection  between 
the  lines  defined  by  cto,  Do  and  oq,  Di.  In  the  matrix  shown  in  Table  3.1,  point  A  corresponds  to 
(x’0,  y’o).  The  points  adjacent  to  A  are  B2,  B9,  B6,  and  Bg 


Line 

cto,  Do 

Oti,  Di 

mssm 

mssm 

mssm 

0^5,  D5 

Oo,  Do 

x’o,  y’o 

x’l,  y’1 

x’2,  y’2 

x’3,  y’s 

x’4,  y% 

x’s,  y’s 

x’o,  y’o 

X’7,  y’7 

x’8,  y’s 

02,  D2 

x’s,  y’s 

x’10,  y’10 

x’n,  y’11 

x’n,  y’12 

X’l3,  y’l3 

x’14,  y’l4 

mssm 

x’is,  y’u 

x’10,  y’10 

X’l7,  y’l? 

Os,  D5 

SYMMETRIC 

x’is,  y’is 

x’is,  y’is 

m msm 

x’20,  y’20 

x’21,  y’21 

Oq,  D7 

x’22,  y’22 

Table  3.1  -  Matrix  of  intersection  point  coordinates.  This  matrix  is  symmetric.  A  blank  cell  means  no 
intersection  occurs  between  the  lines  or  if  the  intersection  occurs  outside  the  modeling  volume. 
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Figure  3.6  -  Points  adjacent  to  point  A  and  the  vectors  to  each  of  these  points 

It  can  be  seen  that  all  the  points  contained  in  the  row  oto,  Do  in  Table  3.1  should  be  tested  in 
order  to  get  B2  and  B6  in  Figure  3.6.  In  order  to  do  this,  the  vectors  that  radiate  away  from  point 
A  will  be  required.  These  are  as  follows: 

A  A 

-  sin  a0  i'+  cos  a0  f 

Equation  3.7 


sina0  i'-cosa0  j' 

Equation  3.8 


-sinofj  i'+  cost*,  7" 
Equation  3.9 
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L 


A  A 

sin  ax  i-  cos  ax  j' 

Equation  3.10 


For  the  points  along  the  (Xo,  Do  line,  the  following  tests  are  done  on  the  coordinates  of  each 
intersection  point  (x’i,  y’0  found  in  the  row  (for  the  line  defined  by  (cto,  Do),  (x’j,  y’j)  may  be  one 
of  the  following  points:  (x’i,  y’i),  (x’2,  y’2),  (x’3,  y’3),  (x’4,  y’4)  and  so  on): 

(xV-x'q  )  _  (y'j-y'o )  _  jr. ..  0? 

—  sin  cos  aQ 

Equation  3.11 


or 

(x\-x'0 )  _  (y\-y'o )  _  ,_  ^  Q? 
sin  a0  -  cos  a0 

Equation  3.12 


The  vector  (x'i-x'0)i'+(y'j-y'0)  j'  is  parallel  to  both  the  unit  vectors  in  Equation  3.7  and 

Equation  3.8  and  is  a  scalar  multiple  of  these  vectors.  If  the  scalar  multiplier  k  is  negative,  the 
point  is  located  in  the  opposite  direction  and  if  it  is  positive  then  it  points  in  the  same  direction 
as  the  unit  vector.  For  example,  if  the  coordinates  of  the  point  B2  are  used  as  the  pair  (x’i,  y’i)  in 
Equation  3.11,  the  resulting  value  of  k  would  be  positive  since  the  vector  in  Equation  3.11 
points  from  A  to  B2.  The  tests  in  Equation  3.11  and  Equation  3.12  basically  show  which  side 
of  point  (x’o,  y’o)  the  point  (x’i,  y’i)  is  located.  The  points  with  the  smallest  positive  value  of  k  for 
each  of  these  two  tests  are  selected  as  the  adjacent  points  located  on  each  side  of  (x’o,  y’o). 

This  procedure  is  repeated  using  the  direction  vectors  of  the  other  intersecting  line  ai,  Di  in 
order  to  locate  the  adjacent  points  B8  and  Bc>.  The  direction  vectors  are  given  by  Equation  3.9 
and  Equation  3.10  (in  the  direction  of  B8  and  Bp,  respectively).  Instead  of  the  tests  in  Equation 
3.11  and  Equation  3.12,  the  following  will  now  be  used: 

(jc'i-jc'o )  _  (y'j-y'p)  =Jc>  Q? 

-sin#!  cos 

Equation  3.13 


or 
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(x'-x'o)  =  (y^-y'o)  =  k  >  0? 

sin  a{  -  cos  ax 
Equation  3.14 


indicating  the  directions  that  the  line  ai,  Di  will  be  traversed  in  order  to  find  Bg  and  B«>. 

So  the  procedure  can  be  visualized  as  taking  a  point  in  the  matrix  and  testing  each  point  in  the 
same  row  and  the  same  column  to  find  the  adjacent  points. 

As  a  matter  of  efficiency,  it  would  be  good  if  the  algorithm  does  not  repeat  the  process  on  points 
already  considered  in  previous  runs.  In  Figure  3.6  for  example,  while  finding  the  adjacent 
points  for  A  (namely  B2,  B9,  Bg,  and  Bg)  the  algorithm  will  also  identify  A  as  an  adjacent  point  to 
each  of  these  points  so  that  when  it  is  time  to  find  the  points  adjacent  to  say  B2,  there  is  no  need 
to  search  for  A  again. 

The  information  has  to  be  stored  in  a  form  that  is  easy  to  process  for  the  next  procedure.  The 
data  are  stored  in  sets  containing  the  point  of  intersection  between  two  (or  more)  lines,  the  points 
adjacent  to  it  and  the  components  of  the  unit  vectors  to  get  to  these  points.  All  these  data  are  part 
of  the  computation  process  described  above. 

The  set  of  data  for  a  given  point  of  intersection,  say  (x’o,  y’o)  (point  A  in  Figure  3.6)  between  the 
lines  defined  by  cco,  Do  and  cti,  Di  will  look  like  this: 


Point 

A  (starting  pt.) 

b2 

b6 

b8 

B, 

Coordinates 

(x’o,  y’o) 

(x’24,  y’24) 

(x’25,  y’25) 

(x’26,  yV.) 

(x’27,  y’27) 

Direction 

<-sinoto,cosao> 

<sinao,-coscXo> 

<-s!nai,cosai> 

<sinai,-cosai> 

Table  3.2  -  Adjacent  point  data  for  point  A 


Each  set  is  identified  by  its  starting  point,  in  this  case  A.  The  points  adjacent  to  A  are  described 
by  their  x’  and  y’  coordinates  as  well  as  the  direction  of  the  vector  from  A.  These  data  will  be 
necessary  in  the  process  of  assembling  the  polygons. 

The  set  may  have  more  data  if  more  than  two  lines  intersect  at  the  given  point.  The  set  defining 
point  B3  in  Figure  3.6  will  have  lines  radiating  from  it  in  six  different  directions  defined  by  the 
directions  of  the  three  different  lines  intersecting  there. 

The  algorithm  proceeds  to  assemble  the  fracture  polygons. 
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3.4  Polygon  Assembly  Procedure 

3.4.1  Polygon  Assembly 

The  assembly  of  polygons  is  done  point  by  point  and  in  a  clockwise  fashion  (Figure  3.7).  At 
this  stage,  it  is  necessary  to  create  a  procedure  to  avoid  “straying.”  Straying  can  be  defined  by 
referring  to  Figure  3.7.  Say,  if  the  polygon  AB2B3B9A  is  to  be  assembled  and  the  process  begins 
at  A.  The  algorithm  traverses  the  line  defined  by  Oto  and  Do  towards  B2.  At  B2,  the  algorithm  has 
four  choices:  proceed  to  C,  turn  counter-clockwise  to  Bi,  turn  back  towards  A  or  turn  clockwise 
toward  B3.  If  the  algorithm  chooses  any  of  the  first  three  options,  then  it  is  “straying.”  The 
algorithm  should  change  its  direction  from  AB2  to  B2B3.  The  valid  change  in  direction 
(clockwise  in  our  case)  from  the  one  currently  being  traversed  is  the  greatest  among  the  available 
changes  in  direction  at  the  point  of  intersection  but  less  than  2n  radians. 

The  first  step  is  to  choose  a  point  to  start  from  (the  starting  point)  and  assemble  the  polygons 
that  have  this  point  as  a  common  vertex.  Say  point  A  in  Figure  3.7  is  chosen.  From  A,  four 
directions  can  be  traversed  one  at  a  time  depending  on  which  polygon  will  be  assembled.  At  this 
point,  the  data  set  in  Table  3.2  is  accessed  and  one  of  the  four  vectors  is  chosen  as  the  initial 
direction  that  will  be  traversed. 


A  A 

If  the  polygon  AB2B3B9A  will  be  assembled,  the  first  direction  taken  will  be  -  sin  a0  i'+  cos  aQ  j' 
which  is  parallel  to  the  line  segment  AB2.  The  line  segment  AB2  is  stored  in  the  data  set  created 
for  this  polygon.  At  B2,  there  are  four  directions  to  choose  from  and  since  the  polygon  formation 
is  done  in  a  clockwise  manner,  B3  should  be  the  next  point.  B3  will  also  have  its  own  data  set 
containing  all  points  adjacent  to  it  as  well  as  the  directions  to  these  points  and  this  set  will 
contain  six  adjacent  points  and  six  directions  because  three  lines  intersect  there.  The  same  is 
done  at  B9.  At  each  point,  the  maximum  possible  change  in  direction  has  to  take  place  but  it  will 
be  limited  to  less  than  2n  radians  clockwise  as  discussed  above.  The  cross  product  between  the 
current  direction  and  each  of  the  possible  directions  at  the  point  are  taken.  Only  the  cross 
products  that  result  in  a  negative  z’  component  are  valid  meaning  that  only  vectors  whose 
direction  is  clockwise  from  the  current  one  are  taken. 
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Figure  3.7  -  Clockwise  assembly  of  polygons  using  A  as  a  starting  point 


For  two  vectors  E  and  F  where 

AAA 

E  =  ex  i'+  e2  j'+  e3  k' 

Equation  3.15 


F  =  f\  l"+  h  j'+  h  k' 

Equation  3.16 

The  cross-product,  E  x  F ,  is  given  by: 

ExF  =  (e2f3  -ej2) i'+  (ejx  -ej3)  f+  (ej2  - e2fx )k' 

Equation  3.17 

So  in  this  case,  E  would  be  the  current  direction  and  F  would  be  any  one  of  the  possible 
directions  in  the  set.  The  restriction  would  be  for  {efo .  erfi)  to  be  less  than  zero  for  the  change 
to  be  clockwise  (using  the  right-hand  rule,  this  would  point  into  the  paper)  from  the  current 
direction.  A  counter-clockwise  change  would  have  a  {efo  -  erfi)  value  greater  than  zero. 

After  the  undesirable  directions  have  been  weeded  out,  the  angles  between  the  current  vector  and 
each  of  the  valid  vectors  are  taken.  Note  that  in  Equation  3.15  to  Equation  3.17,  anything  that 
has  a  subscript  “3”  will  be  zero  because  the  lines  are  expressed  in  2-D  space.  The  dot  product 
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between  the  two  vectors  is  used  to  find  the  clockwise  angle  between  them.  Since  the  vectors 
only  have  two  components  (in  the  x’  and  y’  directions): 

P  -  cos-1  (elfl  +  e2f2 )  where  0  <  /?  <  2 n 

Equation  3.18 

The  valid  point  with  the  maximum  (3  (and  less  than  27t)  will  be  the  next  point  in  the  assembly 
procedure.  Actually,  this  check  need  not  be  performed  if  the  point  is  an  intersection  between 
only  two  lines.  The  cross-product  check  will  suffice  because  there  will  only  be  one  direction  out 
of  the  four  that  will  pass.  Therefore,  the  angle  check  (greatest  but  less  than  27t  radians 
clockwise)  should  be  done  only  if  more  than  two  lines  intersect  at  the  point  such  as  B3  in  Figure 
3.7. 


This  process  is  repeated  until  A  is  hit  and  a  polygon  is  formed. 

The  process  is  repeated  for  the  other  three  directions  (to  Bg,  B6,  and  B9)  thus,  three  other 
polygons  are  formed.  In  the  case  of  having  B3  as  a  starting  point,  six  polygons  are  formed. 

However,  it  will  be  necessary  to  avoid  repeating  the  assembly  of  a  polygon  once  another  vertex 
is  taken  as  a  starting  point.  The  solution  to  this  problem  will  be  discussed  next. 


3.4.2  Procedure  for  Avoiding  Repetitive  Polygon  Assembly 

In  this  algorithm,  it  is  possible  to  avoid  repeating  the  assembly  of  a  polygon  once  another  vertex 
is  taken  as  a  starting  point.  For  example,  going  back  to  Figure  3.7,  say  the  polygon  assembly  is 
finished  for  A  and  the  procedure  starts  again  but  this  time  it  takes  Bg  as  the  starting  point.  It  is 
not  necessary  to  repeat  the  polygons  ABgB^A  and  ABfiB7BgA  since  they  have  already  been 
formed  when  A  was  taken  as  the  starting  point.  Therefore,  great  savings  in  calculation  will  be 
achieved  if  certain  directions  involved  in  previous  assemblies  are  somehow  marked  against 
future  consideration.  In  the  case  where  Bg  is  the  starting  point,  it  will  be  more  efficient  to 
neglect  the  vectors  pointing  towards  A  and  Bi  in  order  to  prevent  the  re-assembly  the  two 
polygons  just  mentioned  above. 
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The  number  of  times  a  polygon  is  assembled  is  equal  to  the  number  of  vertices  it  has  because 
each  of  these  vertices  can  be  starting  points  for  polygon  assembly.  Polygon  AB8BiB2A  above 
(referred  to  as  polygon  1  for  brevity)  can  be  assembled  when  any  one  of  its  four  vertices  is  made 
a  starting  point. 

The  way  to  avoid  re-assembly  is  to  discard  the  vectors  that  have  already  been  used  in  one 
assembly.  In  other  words,  the  number  of  initial  directions  to  choose  from  at  a  starting  point  will 
be  reduced  if  an  adjacent  point  has  been  used  as  a  starting  point  in  a  previous  polygon  assembly. 
For  example,  when  A  is  taken  as  a  starting  point  (Figure  3.8)  then  one  of  the  polygons 
assembled  will  be  polygon  1.  The  figure  shows  the  arrows  of  valid  directions  at  the  vertices. 
Recall  from  the  section  oh  Polygon  Assembly  that  validity  of  the  direction  is  checked  by 
calculating  the  z’  component  of  the  cross  product  between  the  current  direction  and  the  other 
directions  at  the  point.  These  directions  will  be  discarded  and  they  will  no  longer  be  available 
when  Bg,  Bi,  or  B2  are  taken  as  starting  points.  Therefore,  the  creation  of  polygon  1  can  no 
longer  be  initiated  from  these  points. 


Point 

A  (starting  pt.) 

b2 

Bfi 

Bs 

b9 

Coordinates 

(x’o,  y’o) 

(x’24,  y’24) 

(X’2S,  y’25) 

(x’26,  y’2fi) 

(X’27,  y’27) 

Direction 

<-sinao,coscco> 

<sina<),-cosao> 

<-sinai,cos(Xi> 

<sinai,-cosoci> 

Table  3.3  -  Adjacent  point  data  for  point  A 
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Point 

Bg  (starting  pt.) 

Bj 

b7 

c3 

A 

Coordinates 

(x’M,  y52«) 

iKSissm 

■^9fm 

(x’3o,  y’30) 

(x’o,  y’o) 

Direction 

<-sinai2,costXi2> 

<sinai2,-cosai2> 

<-sinai,cosai> 

<sincti,-cosai> 

Table  3.4  -  Adjacent  point  data  for  point  Bg 


Point 

Bj  (starting  pt.) 

c, 

Bg 

C2 

b2 

Coordinates 

K3IS31H 

(x’31,  y’.3l) 

(x’26,  y’26) 

(x’32,  y’32) 

(X524,  y’24) 

Direction 

<-sinai2,cosai2> 

<sinai2,-cosai2> 

<-sina9,cosot9> 

<sina9,-cosct9> 

Table  3.5  -  Adjacent  point  data  for  point  Bj 


Point 

B2  (starting  pt.) 

C 

A 

B! 

b3 

Coordinates 

(x’i4,  y’w) 

(x’33,  y’33) 

(x’o,  y’o) 

bi 

00 

Direction 

<-sincto,cosao> 

<sinao,-cosao> 

<-sinot9,cosa9> 

<sina9,-cost*9> 

Table  3.6  -  Adjacent  point  data  for  point  B2 


To  make  clear  what  is  written  above,  the  steps  are  now  discussed  in  more  detail.  Turning  to 
Figure  3.8  and  Table  3.3  with  A  as  the  starting  point,  to  form  polygon  1  the  vector  pointing  to 
Bs  is  taken  initially  (assembly  is  done  clockwise).  At  point  Bg,  the  possible  directions  are 
checked.  The  data  in  Table  3.4  are  processed  and  the  valid  direction  will  be  the  one  that  points 
to  Bi.  At  Bi  and  subsequently,  B2,  the  same  is  done.  It  can  be  observed  that  if  Bg  is  the  starting 
point,  there  are  four  polygons  that  can  be  formed  resulting  from  the  four  different  directions  that 
can  be  traversed  initially  (to  Bj,  to  B7,  to  C3,  and  to  A).  Polygon  1  is  formed  when  the  direction 
to  Bi  is  taken  initially.  In  order  to  avoid  this  repetition,  the  data  in  column  Bi  in  Table  3.4 
should  be  deleted  when  polygon  1  is  formed  the  first  time  around  (when  A  was  the  starting 
point).  This  results  in  a  reduction  of  the  number  of  available  initial  directions  once  Bg  is  made 
the  starting  point.  So  with  A  as  the  starting  point,  the  data  in  column  Bg  in  Table  3.3,  column  Bi 
in  Table  3.4,  column  B2  in  Table  3.5  and  column  A  in  Table  3.6  will  be  deleted  after  the 
assembly  of  polygon  1. 

Table  3.7  to  Table  3.9  show  the  modified  data  sets  for  points  Bg,  Bj,  and  B2  after  the  formation 
of  polygon  1  using  A  as  the  starting  point.  Looking  at  Figure  3.8  and  these  new  data  sets,  it  can 
be  observed  that  if  any  of  these  three  points  are  eventually  made  the  starting  point,  none  of  the 
initial  directions  will  cause  the  formation  of  polygon  1.  These  have  already  been  eliminated 
when  1  was  formed  for  the  first  time  (when  A  was  the  starting  point).  Remember  that  polygon 
assembly  is  done  in  a  clockwise  manner. 

The  deletion  process  continues  as  other  points  are  taken  as  starting  points.  Less  and  less  data 
need  to  be  handled  as  the  process  continues. 


Point 

Bg  (starting  pt) 

b7 

C3 

HE9HI 

Coordinates 

(x’m,  y’26) 

(x’30,  y’30) 

Direction 

<-sinoti,cosai> 

<sinai,-coscti> 

Table  3.7  -  Remaining  adjacent  points  to  Bg  after  formation  of  polygon  1 
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Point 

Bj  (starting  pt.) 

Cl 

b8 

c2 

Coordinates 

(x’28,  y’is) 

(x’31,  y’31) 

(x’26,  y’w) 

(X’32,  y’.32) 

Direction 

<-sinan,cosa12> 

<sinai2,-cosai2> 

<-sina9,cos<X9> 

Table  3.8  -  Remaining  adjacent  points  to  Bj  after  formation  of  polygon  1 


Point 

B2  (starting  pt) 

c 

b2 

b3 

Coordinates 

(X’24,  y’24) 

(x’33,  y’ss) 

(x’28,  y’28) 

(x’34,  y’34) 

Direction 

<-sinao,cosao> 

<-sinct9,cosa9> 

<sina9,-cosot9> 

Table  3.9  -  Remaining  adjacent  points  to  B2  after  formation  of  polygon  1 


Figure  3.9  shows  the  remaining  initial  directions  for  the  three  points  after  the  formation  of 
polygon  1  with  A  as  the  starting  point.  Note  that  no  initial  direction  at  any  of  the  three  points 
will  cause  the  formation  of  polygon  1. 


At  A,  the  polygons  1,  2,  3,  and  4  will  be  formed.  This  will  further  reduce  the  initial  directions 
for  B2  and  B8.  Figure  3.10  shows  the  initial  directions  after  all  the  polygons  at  A  are  formed. 
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So  at  Bg,  the  vectors  that  can  form  polygons  1  and  4  have  already  been  removed.  Only  polygons 
5  and  6  can  be  formed  there.  At  B2,  the  vectors  needed  to  form  polygons  1  and  2  have  also  been 
removed  leaving  the  vectors  necessary  for  the  formation  of  8  and  9.  After  Bg  is  made  the  starting 
point  and  all  the  remaining  polygons  there  have  been  formed,  the  directions  at  Bi  as  well  as  those 
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of  B7,  C4,  C3,  and  C2  will  be  reduced  because  of  the  assembly  of  polygons  5  and  6.  Figure  3.11 
shows  the  remaining  initial  directions  for  Bi.  These  allow  only  the  formation  of  7  and  8.  As 
more  and  more  points  are  considered  as  starting  points,  more  and  more  directions  at  the  adjacent 
points  are  deleted. 


3.5  Marking  Procedure  and  Polygon  Translation 

After  the  polygons  have  been  formed,  the  areas,  the  coordinates  of  the  centers  ( x’c ,  y‘c)  and  the 
elongation  of  the  polygons  are  calculated  in  order  to  apply  the  marking  rule.  To  calculate  the 
area  and  the  coordinates  of  the  center,  the  following  equations  are  used.  These  are  taken  from 
Meyer  (1999). 

Area  =  ^ (*',  y\+...  +  x'noP  y\-y\  x'2-...~  y'noP  x\  ) 

Equation  3.19 


_  (x  j+X  2  +  •  •  ■  x  noP  ) 

noP 


Figure  3.12  -  Computation  of  the  center  of  a  fracture  polygon  and  its  equivalent  radius 

The  computations  are  done  in  the  frame  of  reference  of  the  plane.  The  equivalent  radius  can  also 
be  computed  and  is  given  by: 


Equation  3.21 
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The  elongation  e  is  also  calculated. 


R 


R . 


Equation  3.22 


where  Rmax  is  the  maximum  distance  from  the  center  of  the  polygon  to  any  one  of  its  vertices. 
For  any  vertex,  the  distance  to  the  center  of  the  polygon  is 


*=V(*,-*,,)2+(y,-yt)2 

Equation  3.23 


A  typical  requirement  for  being  a  “good”  polygon  is  that  the  angle  between  two  adjacent  sides  is 
at  least  60  degrees  (see  Ivanova,  1998).  Since  the  coordinates  of  the  vertices  are  already 
known,  the  vectors  parallel  to  the  line  segments  connecting  them  can  be  determined.  Using  the 
dot  product  between  two  vectors,  the  angle  8  between  the  adjacent  sides  can  be  calculated. 

S  =  180  -  P  =  180  -  cos_I||F  •  F\\  =  180  -  cos-1  (ejx  +  e2f2) 

Equation  3.24 

The  vectors  E  and  F  define  the  current  direction  and  the  valid  available  direction  respectively  at 
a  point  (see  Figure  3.13).  With  this  information,  the  marking  procedure  can  be  performed. 


Figure  3.13  -  Vectors  E  and  F  which  define  the  current  and  valid  available  direction,  respectively 

After  the  marking  procedure  is  completed,  the  “good”  fractures  (fractures  that  have  been 
retained)  are  translated  along  the  z’  axis  (see  Figure  2.10  in  page  23)  a  distance  dz’max-  Only  the 
z’  coordinates  of  the  vertices  will  be  changed  (see  Figure  3.14  below). 

(x',y',z')^(x,y,z  =  z'±dz'^) 

Equation  3.25 
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but  x’  =  x,  y’  =  2  and  z’  =  0  because  the  all  vertices  lie  on  the  x’-y’  plane,  so  the  coordinates 
become 

(x',y',±dz^) 

After  the  translation,  the  equation  of  the  plane  containing  the  fracture  becomes 

x  sin  6  sin  ^  +  y  cos  6  sin  <j)  +  z  cos  ^  =  d  ±  dz^ 

Note  that  0  and  <|>  do  not  change  with  translation. 


Figure  3.14  -  Translation  of  a  polygon  by  an  amount  dz’m3X 


3.6  Calculating  the  Intersection  Length  between  Two  Fractures 
3.6.1  Determining  Valid  Intersection  Points 

After  the  marking  and  translation  procedures,  the  remaining  polygons  are  tested  for  intersection. 
In  this  procedure,  a  single  polygon  is  taken  and  all  the  other  polygons  in  the  modeling  volume 
are  tested  against  it.  The  geometry  and  orientation  of  the  intersection  for  each  pair  of 
intersecting  fracture  polygons  is  then  calculated.  Since  the  coordinates  of  all  the  vertices  of  each 
polygon  have  been  determined  in  the  polygon  assembly  procedure,  the  equation  of  the  plane  on 
which  each  polygon  lies  can  be  determined.  The  equations  of  the  planes  are  then  used  to 
determine  the  equations  of  the  line  of  intersection  (LOI)  between  two  planes  containing  a 
fracture  polygon.  The  line  segment  of  intersection  between  two  intersecting  fracture  polygons 
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lies  on  the  LOI  between  the  planes  on  which  they  lie  (Figure  3.15).  The  problem,  however,  lies 
in  the  calculation  of  the  endpoints  of  the  line  segment  of  intersection  between  the  two  fracture 
polygons.  In  Figure  3.15,  if  all  of  the  sides  of  the  polygons  S  and  T  are  extended,  they  will 
intersect  the  LOI  (dashed  lines).  However,  not  all  of  these  intersection  points  will  be  “valid” 
(the  intersection  point  between  the  side  that  has  been  extended  and  the  LOI  has  to  be  between 
the  two  endpoints  of  that  side)  so  the  “validity”  of  each  point  must  be  checked. 


Figure  3.15  -  Intersecting  polygons  with  sides  extended  to  intersect  the  line  of  intersection 


The  first  thing  to  do  is  to  locate  the  intersection  points  A,  B,  C,  D,  E,  F,  G,  H  and  I.  The  data 
available  are  the  coordinates  of  each  vertex.  Therefore,  the  global  form  of  the  equations  of  a  line 
containing  three  of  these  points  that  are  collinear  (for  example:  Ti,  T2  and  F)  can  be  obtained. 
Also,  the  global  forms  of  the  equations  for  the  LOI  are  necessary.  To  obtain  the  equations  for 
the  LOI,  the  fact  that  the  fractures  have  been  translated  and/or  rotated  should  be  taken  into 
consideration. 

The  original  equation  of  the  plane  containing  a  fracture  in  the  frame  of  reference  of  the  fracture 
set  is: 


x  sin  6  sin  0  +  y  cos  6  sin  0  +  z  cos  $  =  d 
Equation  2.3 

After  the  polygons  are  assembled  and  the  marking  procedure  performed,  the  polygons  are 
translated  a  distance  dz’max.  The  equation  of  the  plane  becomes: 

.  xsin#sin0  +  ycos#sin0  +  zcos0  =  dtdz'^ 

Equation  3.26 


where 
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*■  =CM! 

**  max  ^  gi 

Equation  2.5 


In  the  global  coordinate  system,  this  equation  would  be: 

(cos  ©  sin  6  sin  <j>  +  sin  0  cos  cos  6  sin  </>  +  sin  ©  sin  <E>  cos  <fi)X 
+  (cos  ©  cos  <I>  cos  6  sin  <j>  +  cos  ©  sin  d>  cos  0  -  sin  ©  sin  6  sin  <f>)Y 
+  (cos  O  cos  0  -  sin  <I>  cos  6  sin  (j>)Z  =  d±dz'nax 

Equation  3.27 

For  simplicity,  it  will  be  written  as: 


aX+bY  +  cZ  =  d±dz'Jtax 

Equation  3.28 

So  for  two  planes  with  equations 

aiX+biY  +  ciZ  =  di±dz'inax 

Equation  3.29 


and 


akX+bkY  +  ckZ=di±dz\rmx 

Equation  3.30 


The  following  equations  will  define  the  LOI  of  the  two  planes  in  the  global  frame  of  reference: 


(flA  ~akbi)X  -[(d.+dz'^  )bk  ~{dk  ±dz'krmx  )b,] 

(cA-cA) 

Equation  3.31 


and 

z  _  (a A  ~  aA  )Y  ~ M  ±  dz\m ax  )ak  -  (dk  ±  dz'kmix  )a,  ] 

(W-W) 

Equation  3.32 
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It  is  helpful  that  the  data  resulting  from  the  polygon  assembly  procedure  will  be  in  the  form  of 
clockwise-sequentially  arranged  points.  For  example,  polygon  T  in  Figure  3.15  will  have  its 
points  arranged  in  this  manner: 


Point 

Tx 

t2 

t3 

t4 

Ts 

Coordinates 

(x’x,  y’x) 

(x’2,  y’2) 

(x’j,  y’3) 

(x’4,  y’4) 

(x’s,  y’s) 

Table  3.10  -  Clockwise  arrangement  of  vertices  of  polygon  T 

Note  that  the  coordinates  in  Table  3.10  are  still  in  the  local  frame  of  reference  of  the  fracture 
plane.  Recall  that  in  the  polygon  assembly  procedure,  work  is  done  in  the  local  frame  of  the 
fracture  because  it  is  much  more  convenient  to  do  it  that  way  (z’  is  zero  since  all  the  vertices  lie 
on  the  x’-y’  plane).  To  calculate  the  LOI,  two  fractures  must  be  in  the  same  frame  of  reference 
so  in  order  to  proceed,  a  transformation  of  coordinates  from  the  local  to  the  global  system  is 
necessary.  Table  3.11  shows  the  coordinates  in  Table  3.10  in  global  coordinates. 


Table  3.11  -  Global  coordinates  of  vertices  of  polygon  T 

The  coordinates  in  Table  3.11  are  then  substituted  in  Equation  3.31  and  Equation  3.32  to  find 
out  if  any  of  the  vertices  fall  exactly  on  the  LOI.  In  Figure  3.16,  the  vertex  T2  lies  on  the  LOI 
and  it  is  evident  that  the  equations  of  the  lines  containing  the  line  segments  T1T2  and  T2T3  need 
not  be  derived  for  the  calculation  of  their  intersection  points  with  the  LOI.  Since  the  points  are 
stored  in  the  manner  shown  in  Table  3.11  it  will  be  easy  to  find  out  which  vertices  are  adjacent 
to  the  vertex  that  lies  on  the  LOI.  In  this  case,  Ti  and  T3  are  the  adjacent  vertices  to  T2  so  only 
the  equations  of  the  lines  containing  the  line  segments  T3T4,  T4T5  and  T5T1  need  to  be  derived  to 
get  the  other  three  intersection  points.  Two  of  which  are  the  intersections  between  the  LOI  and 
the  dashed  lines  in  Figure  3.16  and  the  other  is  located  between  T4  and  T5.  In  the  case  where 
two  of  the  vertices  lie  on  the  LOI  then  there  will  be  no  need  for  further  calculations  for  that 
fracture  since  all  the  fractures  are  convex  and  will  therefore  have  only  two  points  lying  on  the 
LOI. 
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/ 
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Figure  3.16  -  Polygon  T  with  two  sides  extended  to  intersect  the  line  of  intersection 

For  lines  whose  equations  need  to  be  reconstructed  to  obtain  the  intersection  point,  the 
coordinates  of  the  vertices  in  the  local  frame  of  the  plane  can  be  converted  to  their  corresponding 
values  in  the  global  frame.  These  values  can  then  be  used  to  construct  the  parametric  equations 
of  the  line.  For  two  points  Ti  (Xj,  Yi,  ZO  and  Tk  (Xk,  Yk,  Zk),  the  line  connecting  them  is  defined 
by  the  following  equations: 

X=(l  -t)X,+tXk 
Y  =  (l-t)Yi+tYk 
Z  =  (l-t)Zi+tZk 
where  -°°<t<+ °° 

Equation  3.33 

Zi  and  Zk  are  substituted  in  the  third  equation  and  the  parameter  t  is  solved  for.  The  resulting 
expression  for  t,  which  is  in  terms  of  Z,  is  substituted  back  into  the  first  two.  Two  equations  for 
Z,  one  in  terms  of  X  and  the  other  in  terms  of  Y,  are  obtained  from  the  substitution.  These  are 
equated  to  Equation  3.31  and  Equation  3.32  (the  equations  defining  the  LOI),  respectively,  and 
the  values  of  X  and  Y  are  calculated.  These  are  the  X  and  Y  coordinates  of  the  intersection  point 
between  the  LOI  and  the  line  segment  connecting  Ti  (Xj,  Yi,  Zi)  and  Tk  (Xk,  Yk,  Zk).  The  Z 
coordinate  of  the  intersection  point  can  be  computed  by  substituting  the  calculated  X  in 
Equation  3.31  or  by  substituting  Y  in  Equation  3.32. 

For  example,  the  X  and  Y  coordinates  of  the  intersection  point  B  (see  Figure  3.15)  between  the 
line  connecting  the  vertices  T4  and  T5  and  the  LOI  are  given  below: 

x  .  Ny(Z4X5  -X4Z5)  +  M1(Xs  -X4) 

*  L1(X5  -  X4)- N1(ZS  -Z4) 

Equation  3.34 
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A2(z4ys-y4z5)  +  M2(y5-y4) 
L2(y5-y4)-iv2(z5-z4) 

Equation  3.35 


where 

(X4,  Y4,  Z4 )  are  the  global  coordinates  of  point  T4 
(X5,  Y5,  Zs)  are  the  global  coordinates  of  point  T$ 

and  Lu  M\  and  N\  are  defined  as 

Li  =«A  ~akbi 

M ,  =  (d,  ±  dz\ mx  )bk  ~(dk  ±dz\ M  )bt 

Ni  ~ckbi~cibk 

while  L2,  M2  and  N2  are  defined  as 
L2=akbi-aibk 

M 2  =  (d,  ±  )a*  -  (dk  ±  dz'kam  )a, 

N2=ckai-ciak 

ai,  bi,  a,  di  and  a*,  &*,  Ck,  dk  are  the  parameters  that  define  the  LOI  in  Equation  3.31  and 
Equation  3.32  between  the  two  planes  containing  the  intersecting  fractures. 

Zb  can  be  calculated  by  substituting  Xb  into  Equation  3.31  or  by  substituting  Yb  into  Equation 
3.32.  Both  will  give  the  same  value  for  Zb. 

Once  the  locations  of  the  points  A,  B,  C,  D,  E,  F,  G,  H  and  I  in  Figure  3.15  have  been 
computed,  a  checking  procedure  is  needed  to  filter  out  points  A,  C,  F,  H  and  /,  the  intersection 
points  that  do  not  actually  belong  to  any  fracture.  This  procedure  is  discussed  in  the  following 
paragraphs.  After  the  filtering  procedure,  another  process  (which  will  be  presented  in  Section 
3.6.2)  is  needed  to  determine  that  line  segment  DE  is  the  intersection  of  the  two  fractures. 

After  the  points  of  intersection  between  each  side  of  the  polygon  and  the  LOI  are  calculated, 
each  of  them  has  to  be  tested  for  validity  (if  the  point  is  between  two  vertices  like  point  B  in 
Figure  3.15).  In  Figure  3.15,  it  will  help  to  recognize  that  the  vector  pointing  from  B  to  T4  has 
a  direction  opposite  that  of  the  vector  pointing  from  B  to  T5  and  that  B  is  a  “valid”  point  of 
intersection.  For  an  “invalid”  (one  that  does  not  actually  belong  to  the  polygon)  point  of 
intersection  such  as  I,  the  vectors  pointing  from  this  point  to  each  of  the  vertices  Si  and  S4  have 
the  same  direction.  The  vectors  and  the  relationships  between  them  for  the  points  discussed  are 
shown  below.  These  equations  essentially  outline  the  procedure  for  checking  the  points  of 
intersection. 
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A  A  A 

Note  that  i  is  the  vector  (1,0,0),  j  is  (0,1,0)  and  k  is  (0,0,1). 
For  B 


(XT4-XB)i+(YTi -Yb)J+(ZTa  -ZB)k  =  K 


(XT-XB)i+(YT-YB) j+  (ZT  -ZB)k 


Equation  3.36 


and  for  /. 


(Xs-X,)i+(YSi  -Yt)j+  (Zs  -ZI)k  =  K1 


(X^-XiV+Or^-YJJ+iZst-Z,)*: 


Equation  3.37 


Note  that  K  and  Ki  are  constants.  In  this  test,  the  magnitude  of  these  two  constants  is  not 
important,  what  matters  is  the  sign  of  these  constants.  A  negative  constant  will  indicate  a  valid 
point  of  intersection  and  a  positive  constant  will  mean  otherwise.  For  the  valid  point  B,  the 
value  of  K  in  Equation  3.36  is  negative  since  the  vector  from  T4  to  B  and  the  vector  from  T5  to 
B  have  opposite  directions.  This  means  that  B  is  between  T4  and  T5  and  the  side  T4Ts  of 
polygon  T  in  Figure  3.15  intersects  the  LOI.  For  the  point  /,  the  value  of  Ki  is  positive  since 
the  vector  from  Si  to  I  and  the  vector  from  S4  to  I  have  the  same  directions.  This  implies  that 
point  /  is  not  located  between  the  vertices  Si  and  S4  and  that  the  side  SiS4  do  not  intersect  the 
LOI. 

After  each  point  of  intersection  is  calculated,  it  is  subjected  to  the  test  just  described.  Invalid 
points  are  discarded  since  it  is  useless  to  store  them.  Valid  points  are  stored  along  with  the 
vertices  of  the  polygon  they  belong  to.  Such  identification  will  be  useful  in  the  following  stage. 


3.6.2  Algorithm  for  Calculating  the  Intersection  Length 

The  next  step  is  to  determine  which  of  these  points  make  up  the  line  of  intersection  if  there  is 
one.  In  this  case  the  points  D  and  E  in  Figure  3.15  need  to  be  isolated  from  the  set  containing 
the  valid  points  B,  D,  E  and  G.  Bear  in  mind  that  it  is  not  sufficient  to  go  through  the  procedure 
discussed  above  in  order  to  determine  whether  or  not  two  fractures  intersect.  So  far,  only  the 
intersection  points  between  the  LOI  and  the  fractures  have  been  calculated. 

If  each  fracture  has  two  intersection  points  with  the  LOI,  three  cases  may  be  anticipated. 

1.  As  shown  in  Figure  3.15,  the  two  fractures  overlap  but  neither  one  is  completely  contained 
in  the  other  along  the  LOI.  A  special  case  would  be  a  point  intersection  between  the  two 
fractures.  See  also  Figure  3.17a. 
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2.  The  fractures  intersect  and  one  is  contained  completely  in  the  other  along  the  LOI.  See 
Figure  3.17b. 

3.  The  fractures  do  not  intersect  at  all.  See  Figure  3.17c. 

At  this  stage,  a  single  reference  point  is  first  chosen  among  the  four  intersection  points.  Any  one 
of  the  four  points  will  do.  Using  a  check  on  the  directions  of  the  vectors  pointing  to  the  other 
three  points,  those  three  remaining  points  are  grouped  according  to  which  side  they  are  located 
with  respect  to  the  reference  point.  There  can  only  be  two  cases  for  this: 

1.  All  the  other  three  points  are  located  on  one  side  of  the  reference  point. 

2.  One  is  located  on  one  side  and  the  other  two  are  on  the  other  side. 


Figure  3.17a  to  Figure  3.17c  show  how  the  four  points  may  be  arranged  along  the  LOI.  If  any 
one  of  the  outer  points  in  any  one  of  the  three  arrangements  in  Figure  3.17  is  chosen  as  the 
reference  point,  then  case  1  is  encountered  (example:  if  Ti  is  chosen  in  Figure  3.17a,  the  other 
points  are  on  one  side  of  Ti).  On  the  other  hand,  if  any  one  of  the  inner  two  points  is  chosen  as 
the  reference  point  then  case  2  is  encountered  (example:  if  S2  is  chosen  in  Figure  3.17b,  Ti  will 
be  on  one  side  while  S2  and  T2  are  on  the  other). 


•  -  Intersection  Point  between 
Polygon  S  and  LOI 

□  -  Between  Polygon  T 
and  LOI 


(c) 


Figure  3.17  -  The  three  likely  arrangements  of  intersection  points  on  the  line  of  intersection 
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The  algorithm  for  computing  the  intersection  length  between  two  fractures  is  shown  in  Figure 
3.18.  For  example,  the  point  Si  for  the  case  in  Figure  3.17b  is  chosen  as  the  reference  point. 
Two  of  the  points  (S2  and  T2)  are  on  one  side  of  Si  and  the  third  (Ti)  is  on  the  other.  The 
flowchart  in  Figure  3.18  can  be  followed  up  to  this  stage  (“two  points  are  on  one  side  and  one 
is  on  the  other  side”).  Now  the  algorithm  decides  if  the  single  point  (Ti)  belongs  to  the  same 
polygon  as  the  reference  point.  But  Ti  is  from  a  different  polygon  so  the  process  proceeds  to  the 
step  labeled  “calculate  the  distances  to  the  other  two  points  on  the  other  side.”  The  shorter 
calculated  distance  is  taken  as  the  length  of  intersection.  In  this  case,  the  intersection  between 
the  LOI  and  the  polygon  S  is  completely  contained  in  the  polygon  T  (Figure  3.17b).  The  same 
path  along  the  flowchart  would  be  taken  if  the  case  in  Figure  3.17a  were  considered  but  the  two 
polygons  will  merely  overlap  and  the  line  segment  of  intersection  (S1T2)  will  not  be  completely 
contained  in  either  fracture  polygon.  If  T2  in  Figure  3.17c  were  taken  to  be  the  reference  point, 
the  path  would  change  at  the  decision  stage  labeled  “is  that  single  point  from  the  same  polygon 
as  the  reference  point.”  This  case  would  lead  to  the  decision  “yes”  and  the  algorithm 
determines  that  the  fractures  do  not  intersect  (and  indeed  they  do  not). 

As  another  example,  the  point  Ti  in  Figure  3.17a  is  taken  as  the  reference  point.  All  the  other 
three  points  are  on  one  side  of  Ti.  The  distances  from  Ti  to  each  these  points  (Si,  T2  and  S2)  are 
calculated  and  then  it  is  determined  if  the  nearest  point  (Si)  is  from  the  same  polygon  as  the 
reference  point.  But  Si  is  from  a  different  polygon  so  the  algorithm  proceeds  to  calculate  the 
distances  from  this  point,  Si,  to  the  other  two  points  T2  and  S2.  The  shorter  of  the  two  distances 
from  Si  is  the  length  of  intersection.  The  same  would  happen  if  point  Ti  were  chosen  as  the 
reference  point  in  Figure  3.17b  except  that  the  shorter  distance  would  now  be  from  Si  to  S2. 
Now  if  Ti  were  chosen  as  the  reference  point  for  the  case  in  Figure  3.17c,  the  algorithm  would 
flow  differently  since  the  nearest  point  to  Ti  would  be  T2  and  there  would  be  no  intersection. 

If  both  polygons  have  single-point  intersections  with  the  LOI  (Figure  3.19)  then  only  the 
question  of  whether  or  not  they  coincide  needs  to  be  answered.  This  means  that  the  global 
coordinates  of  the  two  points  need  to  be  equal.  This  situation,  however,  may  seem  highly 
unlikely. 

If  only  one  of  the  polygons  has  a  single-point  intersection  with  the  LOI  and  the  other  has  a  two- 
point  intersection,  then  whether  or  not  the  single  point  is  between  these  two  points  has  to  be 
determined.  In  Figure  3.20,  it  has  to  be  checked  if  point  C  is  within  the  line  segment  AB.  The 
vector  pointing  from  C  to  A  should  have  a  direction  opposite  that  of  the  vector  pointing  from  C 
to  B  for  intersection  to  occur. 

So  for  intersection: 


(XA-Xc)i+(YA-Yc)j+(ZA-Zc)k  =  K 


{XB  -  Xc)  i+  (Yb  -  Yc)j+  (ZB  -Zc)k 


Equation  3.38 


and  K  should  be  negative.  Otherwise,  C  is  outside  AB  and  no  intersection  will  occur. 
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Figure  3.18  -  Flow  chart  for  the  algorithm  for  determining  the  line  of  intersection  between  two  fractures 
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4  Fracture  Intersection  Geometry  Study  for  the  Boston  Area 

Meyer  (1999)  used  the  sub-networking  capabilities  of  GEOFRAC  to  study  the  connectivity  of 
the  fracture  networks  in  the  Boston  Area.  Two  modeling  approaches  were  carried  out.  Regional 
modeling  was  performed  in  order  to  give  a  general  idea  of  the  appearance  of  the  fracture 
networks  relative  to  the  faults  in  the  area.  Local  modeling  was  performed  to  calibrate  the  model 
parameters  and  study  the  fracture  network  properties  (sub-network  size,  connectivity).  Through 
local  modeling,  Meyer  found  that  sub-networks  in  the  area  exhibit  more  vertical  connectivity  in 
terms  of  physical  extent  compared  to  horizontal  connectivity  (i.e.  sub-networks  have  C8z  >  CSx 

and  C8y). 

The  modeling  parameters  were  derived  from  fracture  traces  observed  by  Billings  (1976)  during 
the  construction  of  drainage  and  water  supply  tunnels  in  the  Boston  Area.  Meyer  used  sensitivity 
analyses  to  derive  the  best  estimates  of  the  fracture  equivalent  radius  and  fracture  intensity  (  P32) 

from  tracelength  and  borehole  spacing  data,  respectively.  Using  the  best  estimates  of  these 
parameters  and  the  capability  of  modeling  the  individual  fracture  intersections,  the  goal  is  to 
study  the  geometry  of  the  individual  intersections. 


4.1  Site  Location  and  Geology 

Figure  4.1  below  illustrates  the  major  geological  features  in  the  Boston  Region.  It  shows  the 
three  major  geological  structures  in  the  area:  the  Boston  Basin,  the  Boston  Platform  and  the 
Nashoba  Thrust  Belt. 

The  Boston  Basin  is  composed  of  two  lithologic  units:  the  Roxbury  Conglomerate  and  the 
Cambridge  Argillite.  The  Roxbury  Conglomerate  is  a  pebble  to  cobble  sized  conglomerate 
interbedded  with  volcanic  rocks  (Meyer,  1999).  The  pebbles  and  cobbles  range  in  size  from  1  to 
15  cm  but  sizes  as  large  as  30  cm  in  diameter  have  been  observed.  The  matrix  of  the  typical 
conglomerate  is  a  gray  feldspathic  sandstone  (Billings,  1976).  The  Cambridge  Slate,  as  the 
Cambridge  Argillite  is  also  known,  is  typically  dark  bluish  gray  or  brownish  gray,  rather  fine¬ 
grained  and  composed  chiefly  of  argillaceous  material  (LaForge,  1932).  It  occupies  almost  all 
the  northern  part  of  the  Boston  Basin. 

The  Boston  Platform  occupies  the  western  part  of  the  state  of  Massachusetts  as  well  as  the  entire 
state  of  Rhode  Island  (Figure  4.1).  It  consists  of  a  late  Precambrian  batholithic  complex  and 
associated  meta-sedimentary  and  meta-volcanic  rocks  that  were  intruded  by  plutons  and  covered 
by  sediments  at  various  times  during  the  Paleozoic  (Woodhouse  et  al.,  1991).  The  composition 
of  the  late  Precambrian  batholithic  complex  ranges  from  quartz-rich  alaskite  to  diorite  or  gabbro 
(Woodhouse  etal.,  1991). 

The  Nashoba  Thrust  Belt  (shown  as  the  Nashoba  Block  in  Figure  4.1)  is  part  of  a  folded,  faulted, 
metamorphosed  sequence  between  westward-dipping  faults,  the  Clinton-Newbury  fault  zone  and 
the  Bloody  Buff  fault  zone  (Abu-Moustafa,  1976).  It  passes  just  to  the  northwest  of  Boston 
(Figure  4.1)  and  is  composed  of  ferromagnesian  rocks  of  hybrid  origin  into  which  several  types 
of  granite  have  been  intruded  (Meyer,  1999). 
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Figure  4.1  -  Main  geologic  formations  in  the  Boston  region  (from  Meyer,  1999) 

The  next  section  briefly  describes  the  regional  modeling  approach,  and  the  derivation  of  the 
modeling  parameters  for  the  local  modeling  approach  is  also  discussed. 
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4.2  Modeling  Parameters  for  Intersection  Geometry  Study 

Regional  modeling  was  aimed  at  generating  the  general  appearance  of  the  fracture  networks 
specifically  in  the  Aberjona  watershed  and  Superfund  sites,  which  are  located  at  the  boundary  of 
the  Boston  Basin  and  the  Boston  Platform  (Figure  4.1).  The  boundary  between  the  Boston 
Basin  and  Boston  Platform  is  formed  by  the  Walden  Pond  Fault.  To  the  north  lies  another  major 
fault,  the  Mystic  Fault,  which  is  part  of  the  Bloody  Buff  Fault  System.  This  represents  the 
boundary  between  the  Boston  Platform  and  the  Nashoba  Thrust  Belt.  These  two  major 
discontinuities  were  included  in  the  regional  modeling  approach.  The  orientations  of  the  faults 
are  given  in  Table  4.1  below. 


Walden  Pond  Fault 

Mystic  Fault 

Strike 

N100°W 

N135°W 

Dip 

55°N 

55°NW 

Table  4.1  -  Strike  and  dip  of  major  discontinuities  considered  in  the  modeling  simulations  in  Figure  4.2 


The  Walden  Pond  Fault  and  the  Mystic  Fault  are  represented  clearly  in  the  regional  modeling 
output  (Figure  4.2  and  Figure  4.3).  The  fracture  intensity  in  the  Boston  Basin  was  assumed  to 
be  twice  the  fracture  intensity  in  the  Boston  Platform  and  the  Nashoba  Thrust  Belt.  This  is  to 
accommodate  the  observation  made  by  Billings  (1976)  in  the  Malden  tunnel,  which  strikes  north- 
south,  that  the  fracture  trace  spacing  increases  as  the  tunnel  crosses  the  boundary  between  the 
Boston  Basin  and  the  Boston  Platform.  Figure  4.3  demonstrates  that  GEOFRAC  models  this 
change  in  intensity  quite  nicely. 


Figure  4.2  -  Regional  modeling  output  (fracture  network  and  corresponding  outcrops).  The  two  major 
discontinuities  shown  are  the  Walden  Pond  Fault  and  the  Mystic  Fault. 
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Nashoba  Thrust  Belt 


Boston 

Platform 


Boston 

Basin 


Figure  4.3  -  Plan  view  of  traces  on  a  horizontal  outcrop  (from  Meyer,  1999).  This  is  not  from  the  same 
simulation  shown  in  Figure  4.2 

However,  we  will  only  be  concerned  with  the  local  modeling  of  the  fracture  systems  in  the 
Boston  Area,  which  means  that  neither  of  these  faults  will  be  included  in  the  simulations.  Local 
modeling  will  focus  more  on  an  arbitrarily  located  volume  within  the  Boston  Basin.  The  next 
section  discusses  the  parameters  used  in  the  local  modeling  and  presents  the  results  of  the 
fracture  intersection  geometries  and  orientations. 

The  following  paragraphs  discuss  the  local  modeling  approach  used  by  Meyer  (1999)  to  calibrate 
the  input  parameters  to  be  used  in  GEOFRAC  to  model  the  fracture  networks  in  the  Boston  Area. 
These  parameters  will  subsequently  be  used  to  model  the  fracture  intersections  in  the  same  area. 

The  modeling  parameters  for  the  fracture  formation  in  the  Boston  Area  are  taken  from  Meyer 
(1999).  These  parameters  were  derived  from  field  tracelength  and  spacing  data  recorded  by 
Billings  (1976).  The  observations  were  made  during  the  construction  of  several  water  supply 
and  drainage  tunnels  in  the  area. 

Four  distinct  joint  sets  were  observed  in  the  area.  Table  4.2  shows  the  strike  and  dip  values  for 
the  joint  sets  observed  in  the  Boston  Area.  The  variations  of  the  dip  values  are  also  given.  In  the 


model  simulations,  however,  a  constant  value  of  ADip  =  ±19°  is  used  for  all  the  joint  sets.  This 
is  the  average  of  the  ADip  values  for  the  four  fracture  sets. 


Fracture  Set 

Strike 

Average  Dip 

ADip 

A 

N98°E 

88°S 

±8° 

B 

N50°W 

80°NE 

±20° 

C 

N170E 

88°W 

±18° 

D 

N160°W 

70°W 

±30° 

Table  4.2  -  Strike  and  dip  of  fracture  sets  in  the  Boston  Area  from  observations  by  Billings  (1976) 


Billings  observed  that  fracture  set  D  is  more  abundant  than  the  other  three  sets.  To 
accommodate  this,  a  larger  fraction  of  the  derived  fracture  intensity  will  be  assigned  to  set  D. 

Fracture  intensity  and  fracture  size  information  are  derived  from  observations  of  the  fracture 
spacing,  s,  along  lines  or  boreholes  and  the  fracture  tracelengths,  L  on  outcrops  in  the  tunnels. 
Observations  made  by  Billings  during  the  construction  of  tunnels  in  the  area  indicate  that  s 
ranges  from  1cm  to  15m  and  L  from  5cm  to  30m. 

In  order  to  come  up  with  an  estimate  of  the  mean  equivalent  radius  of  the  fractures,  values  of  the 
mean  and  standard  deviation  of  the  tracelengths  on  the  outcrops  are  needed  (pL  and  a,  ).  An 
assumption  regarding  the  probability  distribution  of  L  is  thus  required.  Meyer  fitted  the 
tracelength  data  to  a  lognormal  distribution  and  since  different  combinations  of  the  values  of 
and  aL  could  be  used,  a  relationship  between  them  had  to  be  assumed  in  order  to  pin  down  the 
values.  Values  of  jxL  =  1.50  and  oL  =  1.00  are  obtained.  To  estimate  the  fracture  intensity,  the 
mean  spacing,  5,  is  required.  Meyer  assumed  that  s  has  an  exponential  distribution  and  obtained 
S  =  2.70.  Fitting  the  data  to  their  respective  distributions  is  done  by  choosing  the  distribution 
parameters  such  that  the  probability  of  an  observation  that  is  smaller  than  the  minimum  value 
reported,  or  ,  is  equal  to  the  probability  of  observing  values  larger  than  the  maximum 
value  reported,  snm  or  Lmix  (i.e.  the  area  under  the  probability  density  function  to  the  left  of 
Smin  is  equal  to  the  area  to  the  right  of  ,  the  same  goes  for  Linin  and  ). 

Meyer  set  out  to  model  the  fracture  network  using  parameters  inferred  from  the  interpretation  of 
data  gathered  by  Billings  (1976).  The  goal  was  to  generate  a  fracture  network  that  would 
produce  the  same  observations  that  Billings  recorded  during  tunnel  construction  in  the  area:  a 
mean  fracture  spacing  of  S  =  2.70m  and  a  mean  fracture  tracelength  of  \iL  =  1.50  m. 

The  estimate  for  fracture  intensity  is  obtained  using  the  equation  given  by  Dershowitz  and  Herda 
(1992). 


Equation  4.1 
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where  S  is  the  fracture  spacing.  Dershowitz  and  Herda  (1992)  suggest  a  range  of  values 
between  1.0  and  3.0  for  C.  A  value  of  2.0  was  used  initially  with  the  assumption  that  fracture 
orientations  were  distributed  uniformly.  The  mean  fracture  size  is  estimated  from  tracelength 
data  using  the  following  equation  given  by  Zhang  (1999). 


E[Re}  = 


128m,3 

67I3[M,2  +CT,2] 


Equation  4.2 


where  £[/?J  is  the  equivalent  radius  of  the  fractures,  p,  is  the  mean  tracelength  and  aL  is  the 
standard  deviation  of  the  tracelengths.  The  equation  above  was  developed  for  circular  fractures 
so  a  correction  on  the  input  parameters  is  needed.  The  number  of  fractures,  N,  can  be  calculated 
from  the  size  of  the  fractures,  the  volume  of  the  modeling  region,  V,  and  the  fracture  intensity 

(  ^32  )■ 


N  = 


yPn 

nE[Re]2 


Equation  4.3 


Using  Equation  4.1  to  Equation  4.3  and  the  derived  values  of  p, ,  a,  and  S,  the  following 
input  parameters  were  obtained: 


Derived  from  Observations 

Derived  Input  Parameters 

S 

E[Re  ] 

P32 

N 

1.50 

1.00 

2.70 

0.715 

0.74 

12470 

Table  4.3  -  Modeling  parameters  for  the  base  case  (from  Meyer,  1999) 


The  fracture  intensity  of  0.74  is  the  total  for  the  four  fracture  sets  but  it  is  not  evenly  divided 
among  them.  To  account  for  the  observation  that  fractures  from  set  D  are  more  numerous  than 
the  other  sets,  Meyer  assumed  that  set  D  is  responsible  for  34%  of  the  total  intensity  and  sets  A 
to  C  22%  each. 

Meyer  performed  sensitivity  analyses  by  individually  changing  the  values  of  p,  and  S,  holding 
the  others  to  their  original  values.  Table  4.4  below  shows  the  additional  cases  he  considered  and 
the  corresponding  input  parameters. 
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Variati 

Bl 

ons  to  Observed 

Values 

S 

Deri 

E[Re] 

ved  Input  Param 

p 
r  32 

eters 

N 

1.80 

1.00 

2.70 

0.946 

7108 

1.20 

1.00 

2.70 

0.487 

0.74 

26814 

1.50 

1.00 

2.00 

0.715 

1.00 

16835 

1.50 

1.00 

3.50 

0.715 

0.57 

9620 

Table  4.4  -  Additional  cases  for  sensitivity  analysis  (from  Meyer,  1999) 


Based  on  the  results  of  15  simulations  for  each  case  and  upon  studying  the  simulated  values  for 
the  parameters  P32,  E[Re  ] ,  N,  pL  and  S,  Meyer  suggested  the  following  best  estimates  of  the 
input  parameters  for  modeling  the  fracture  network  in  the  Boston  Area: 


Best  Estimates  of  the  Observed  Values 

Derived  Input  Parameters 

Bl 

S 

p 

r32 

N 

1.50 

0.88 

2.70 

0.770 

0.52 

7559 

Table  4.5  -  Best  estimates  of  the  parameters  for  modeling  the  Boston  Area  fracture  networks  (from  Meyer, 
1999) 


An  example  of  the  simulated  fracture  network  and  the  corresponding  intersections  for  the  local 
modeling  simulations  are  shown  in  Figure  4.4  and  Figure  4.5,  respectively. 


Figure  4.4  -  Simulated  fracture  network  for  a  10  by  10  by  10  m  modeling  volume.  (local  modeling) 
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Figure  4.5  -  The  corresponding  fracture  intersections  for  the  fracture  network  in  Figure  4.4.  (local  modeling) 

One  can  see  that  the  current  modeling  capabilities  not  only  show  the  geometry  of  the  individual 
sub-networks  but  also  the  geometry  and  orientations  of  the  individual  intersections. 

In  the  next  section,  the  parameters  given  in  Table  4.5  will  be  used  to  simulate  the  fracture 
networks  in  the  Boston  Area  and  the  geometry  of  the  fracture  intersections  that  result  will  be 
studied. 


4.3  Results  and  Discussion 

To  study  the  geometry  of  the  fracture  intersections  in  the  Boston  Area,  15  simulations  were  run 
for  each  of  five  different  modeling  volume  sizes.  The  modeling  volumes  used  had  edge  lengths 
of  10,  12,  14,  15  and  20  meters.  The  computation  time  and  memory  requirements  for  larger 
volumes  become  very  prohibitive  and  limit  the  size  of  the  modeling  volume  that  can  be  used. 

In  the  following  pages,  graphs  of  the  important  output  parameters  are  presented.  The 
interpretations  and  explanations  follow  after  each  one.  Also,  the  orientations  of  the  intersections 
are  plotted  and  compared  with  the  computed  values. 
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Mean  Intersection  Length  in  each  Simulation 


Figure  4.6  -  Mean  intersection  length  in  each  simulation 


Mean  Intersection  Length  in  Each  Simulation  (Figure  4.6): 


■  The  mean  intersection  length  varies  between  0.5m  and  0.7m.  The  input  (target)  or  mean 
fracture  equivalent  radius  is  0.770m. 

■  As  the  modeling  volume  size  increases,  the  variation  of  the  mean  intersection  length  from 
simulation  to  simulation  becomes  less  although  there  is  no  significant  difference  in  the 
behavior  between  the  153m3  and  the  203m3  simulations. 
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SD  of  Intersection  Length  in  each  Simulation 


Figure  4.7  -  Standard  deviation  of  intersection  length  in  each  simulation 


Standard  Deviation  of  Intersection  Length  in  Each  Simulation  (Figure  4.7): 

■  The  standard  deviations  observed  in  all  the  simulations  vary  from  about  0.39  to  a  maximum 
of  about  0.55  (about  51%  to  71%  of  the  mean  equivalent  radius). 

■  The  variation  of  the  standard  deviation  of  intersection  length  from  simulation  to  simulation  is 
largest  when  using  the  10  m  to  14  m  modeling  volume  sizes.  For  the  sizes  15  m  and 
20  m3,  there  isn’t  much  difference  in  the  way  the  standard  deviation  varies  from  simulation 
to  simulation. 
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Mean  Intersection  Length  versus  Mean  Fracture  Area 


Figure  4.8  -  Mean  intersection  length  versus  mean  fracture  area  for  each  simulation 


Mean  Intersection  Length  versus  Mean  Fracture  Area  (Figure  4.8): 

■  There  seems  to  be  no  specific  trend  that  can  describe  the  relationship  between  the  mean 
intersection  length  and  the  mean  fracture  area.  For  the  103m3  and  123m3  modeling  volumes, 
the  data  points  are  scattered  all  over.  As  the  modeling  volume  size  increases,  the  scatter  of 
points  becomes  more  confined.  The  data  points  for  the  203m3  volume  show  a  vast 
improvement  over  the  103m3  data  points  in  terms  of  scatter  but  still  do  not  suggest  an  obvious 
trend. 
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St.  Dev.  of  Intersection  Length  versus  St.  Dev.  of  Fracture  Area 


Figure  4.9  -  Intersection  length  standard  deviation  versus  fracture  area  standard  deviation  in  each 
simulation 

Standard  Deviation  of  Intersection  Length  versus  Standard  Deviation  of  Fracture  Area 
(Figure  4.9): 

■  As  in  Figure  4.8,  there  is  no  apparent  trend  in  the  relationship  between  the  standard 
deviations  of  the  intersection  length  and  the  fracture  area.  The  same  observations  regarding 
the  scatter  of  data  points  are  also  applicable  here.  The  103m3  modeling  volume  produces  the 
most  scatter,  while  the  203m3  modeling  volume  gives  less  scatter  in  the  data. 
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Intersection  Length  per  Unit  Volume  vs.  P32 


P32(m2/m3) 


Figure  4.10  -  Intersection  length  per  unit  volume  versus  fracture  intensity.  The  “extra  simulations”  were 
performed  to  determine  the  fracture  intensity  at  which  there  will  be  approximately  zero  intersection  length 
per  unit  volume 


Intersection  Length  per  Unit  Volume  versus  Fracture  Intensity,  P32  (Figure  4.10): 

■  The  data  for  intersection  length  per  unit  volume  with  the  corresponding  P32  lies  within  a 
narrow  band. 

■  The  plot  of  the  relationship  is  slightly  curved  and  the  slope  increases  with  increasing  P32. 
This  observation  will  be  explained  later  since  some  of  the  other  plots  also  exhibit  the  same 
behavior. 

■  Additional  simulations  were  performed  to  determine  the  fracture  intensity  at  which  there  will 
be  approximately  zero  intersection  length  per  unit  volume.  This  value  is  seen  to  be  about 
P32  =  0.005. 
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C,  vs.  P32 


Figure  4.11  -  Ci  versus  P32.  Ci  is  the  number  of  intersections  per  unit  volume.  The  “extra  simulations”  were 
performed  to  determine  the  fracture  intensity  at  which  there  will  be  approximately  no  intersections 


Ci  versus  Fracture  Intensity,  P32  (Figure  4.11): 

■  The  plotted  data  lie  within  a  narrow  band  and  the  shape  of  the  relationship  is  very  similar  to 
that  between  the  intersection  length  per  unit  volume  versus  the  fracture  intensity  (Figure 
4.10). 

■  As  expected,  the  relationship  between  the  number  of  intersections  per  unit  volume  and  the 
fracture  intensity  exhibits  the  same  shape  as  the  relationship  between  the  intersection  length 
per  unit  volume  and  the  fracture  intensity. 

■  According  to  additional  simulations,  the  fracture  intensity  at  which  almost  zero  number  of 
intersections  occurs  is  also  about  P32  =0.005.  This  result  agrees  with  that  obtained  from 

Figure  4.10. 

■  The  slope  of  the  relationship  is  also  increasing  with  increasing  P32.  This  can  be  explained  by 
looking  at  the  number  of  intersections  that  an  additional  fracture  creates  when  added  to  a 
fracture  network  of  a  given  intensity.  When  a  single  fracture  is  added  to  a  network  with  very 
low  intensity,  it  is  likely  that  the  single  fracture  will  be  isolated  or  will  form  only  a  few  if  not 
one  intersection  with  the  existing  fractures.  This  accounts  for  the  initial  flatter  slope 
observed  in  Figure  4.11.  The  length  of  the  intersection  formed  by  the  newly  added  fracture 
will  depend  on  the  size  distribution  of  the  fractures  and  the  location  of  the  fractures.  For 
fracture  networks  with  higher  intensities,  an  additional  fracture  will  likely  intersect  with 
more  than  one  fracture  and  thus  form  more  than  one  intersection.  This  explains  the  steadily 
increasing  slope  as  the  fracture  intensity  increases.  The  same  trend  can  be  observed  from  the 
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plot  of  intersection  length  per  unit  volume  versus  the  fracture  intensity  (Figure  4.10).  This 
shows  that  for  a  higher  value  of  fracture  intensity,  the  increase  in  the  total  intersection  length 
due  to  the  addition  of  fractures  would  be  larger  than  if  the  fractures  were  added  to  a  fracture 
network  of  lower  intensity.  Following  this  line  of  reasoning,  it  would  be  safe  to  assume  the 
same  kind  of  behavior  for  any  fracture  network  that  does  not  consist  solely  of  a  set  of  parallel 
fractures. 


Number  of  Isolated  Fractures  vs.  Total  Number  of  Fractures 


Figure  4.12  -  Number  of  isolated  fractures  versus  the  total  number  of  fractures 


Number  of  Isolated  Fractures  versus  Total  Number  of  Fractures  (Figure  4.12): 

■  The  plot  of  number  of  isolated  fractures  versus  the  total  number  of  fractures  for  each  size  of 
modeling  volume  shows  that  as  the  number  of  fractures  increases  there  is  also  an  initial 
increase  in  the  number  of  isolated  fractures.  The  number  of  isolated  fractures  then  plateaus 
(at  different  levels  for  the  different  sizes  of  the  modeling  volumes).  One  might  expect  the 
slope  of  the  relationship  to  become  negative  as  the  total  number  of  fractures  increases 
because  as  additional  fractures  are  created,  the  once  isolated  fractures  may  become  connected 
to  existing  sub-networks.  Also,  the  number  of  isolated  fractures  will  approach  zero  as  the 
total  number  of  fractures  increases. 
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Number  of  Intersections  vs. 

Number  of  Fractures  Involved  in  Intersections 


Figure  4.13  -  Number  of  Fracture  Intersections  versus  the  number  of  fractures  involved  in  the  intersections 
(total  number  of  fractures  minus  number  of  isolated  fractures). 

Number  of  Intersections  versus  the  Number  of  Fractures  Involved  in  the  Intersections 
(Figure  4.13): 

•i  The  number  of  intersections  is  plotted  against  the  number  of  fractures  that  actually  create  the 
intersections  (total  number  minus  the  isolated  fractures). 

■  For  higher  numbers  of  intersection-forming  fractures  at  a  given  volume,  one  can  observe  the 
same  trend  of  increasing  slope  as  the  ones  seen  in  Figure  4.10  and  Figure  4.11.  As  the 
number  of  fractures  increases,  the  addition  of  a  single  fracture  forms  more  than  one 
intersection  due  to  the  high  fracture  intensity. 
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Relative  Frequency  Relative  Frequency 


Histograms  for  103  m3  Volume 
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Intersection  Length  (m) 

-  Intersection  length  histograms  for  the  10  by  10  by  10  meter  modeling  volume 


Histograms  for  123  m3  Volume 


Intersection  Length  (m) 


Figure  4.15  -  Intersection  length  histograms  for  the  12  by  12  by  12  meter  modeling  volume 
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Histograms  for  143  m3  Volume 


Intersection  Length  (m) 


-  Intersection  length  histograms  for  the  14  by  14  by  14  meter  modeling  volume 


Histograms  for  153  m3  Volume 


Intersection  Length  (m) 

Figure  4.17  -  Intersection  length  histograms  for  the  15  by  15  by  15  meter  modeling  volume 
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Histograms  for  203  m3  Volume 
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Figure  4.18  -  Intersection  length  histograms  for  the  20  by  20  by  20  meter  modeling  volume 

Intersection  Length  Histograms  (Figure  4.14  to  Figure  4.18): 

■  The  length  histograms  for  each  size  of  modeling  volume  for  each  of  the  15  simulations  are 
plotted  side  by  side  in  order  to  see  the  consistency  of  the  relative  frequencies  as  the  modeling 
volume  size  changes.  It  can  be  observed  that  as  the  modeling  volume  increases  (from  103nr 
to  203m3),  the  relative  frequencies  for  the  intersection  lengths  become  more  consistent  from 
simulation  to  simulation. 

■  As  the  modeling  volume  increases,  the  percentage  of  small  intersections  (10cm  or  less)  also 
decreases.  For  the  smallest  modeling  volume  (103m3),  an  average  of  13.2%  of  all  the 
intersection  lengths  is  less  than  10cm.  For  the  largest  modeling  volume  used  (203m3),  an 
average  of  11.3%  of  the  intersections  is  10cm  or  shorter. 

■  As  the  modeling  volume  size  increases,  the  tail  of  the  histogram  becomes  longer  reflecting  an 
increased  occurrence  of  longer  intersections.  This  is  accompanied  by  the  decrease  in  the 
percentages  of  smaller  intersections. 
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Cumulative  Distribution  of  Intersection  Lengths  (103  m3) 


Intersection  Length  (m) 

Figure  4.19  -  Cumulative  distribution  of  intersection  lengths  for  the  10  by  10  by  10  meter  modeling  volume 


Cumulative  Distribution  of  Intersection  Lengths  (123  m3) 


Intersection  Length  (m) 

Figure  4.20  -  Cumulative  distribution  of  intersection  lengths  for  the  12  by  12  by  12  meter  modeling  volume 
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Cumulative  Distribution  of  Intersection  Lengths  (143  m3) 


Intersection  Length  (m) 

Figure  4.21  -  Cumulative  distribution  of  intersection  lengths  for  the  14  by  14  by  14  meter  modeling  volume 


Cumulative  Distribution  of  Intersection  Lengths  (153  m3) 
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Figure  4.22  -  Cumulative  distribution  of  intersection  lengths  for  the  15  by  15  by  15  meter  modeling  volume 
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Cumulative  Distribution  of  intersection  Lengths  (203  m3) 


Intersection  Length  (m) 

Figure  4.23  -  Cumulative  distribution  of  intersection  lengths  for  the  20  by  20  by  20  meter  modeling  volume 


Cumulative  Relative  Frequencies  (Figure  4.19  to  Figure  4.23): 


■  The  cumulative  distribution  plots  make  it  easier  to  see  what  percentage  of  the  intersection 
lengths  is  equal  to  or  smaller  than  a  certain  value.  In  all  the  plots,  approximately  50%  of  the 
intersections  are  0.5m  or  shorter. 

■  Almost  80%  of  the  intersections  have  lengths  equal  to  or  less  than  the  mean  equivalent  radius 
of  the  modeled  fractures  (0.770m). 

■  About  9-12%  of  the  intersections  are  1.0m  or  longer. 
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Figure  4.25  -  Lower  hemisphere  plots  of  trend  and  plunge  of  the  intersection  lines  for  the  14  m  and  15  m  cube 
simulations 
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20  meter  Cube  Simulations 
N 


Figure  4.26  -  Lower  hemisphere  plots  of  trend  and  plunge  of  the  intersection  lines  for  the  20  m  cube 
simulation 


Calculated  Intersection  Orientations 

Using  Mean  Fracture  Set  Orientations 
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Figure  4.27  -  Calculated  trend  and  plunge  of  the  intersections  among  the  fracture  sets  A,  B,  C  and  D  using 
only  the  mean  orientations  in  Table  4.6  plotted  using  lower  hemisphere 
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Calculated  Intersection  Orientations 


• 

A-B 

▼ 

A-C 

■ 

A-D 

o 

B-C 

▲ 

B-D 

t 

C-D 

• 

A-A 

V 

B-B 

■ 

C-C 
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Figure  4.2$  -  Calculated  trend  and  plunge  of  the  intersections  among  the  fracture  sets  A,  B,  C  and  D  using 
their  mean  orientations  ±  the  19°  assumed  variation  in  the  dip  plotted  using  lower  hemisphere  (Table  4.6) 


Fracture  Set 

Strike 

Mean  Dip 

KBE55EM 

A 

N98°E 

88°S 

73°N 

69°S 

B 

N50°W 

80°NE 

81°SW 

61°NE 

C 

N170°E 

88°W 

73°E 

69°W 

D 

N160°W 

70°W 

89°W 

51°W 

Table  4.6  -  Strike  and  dip  values  with  the  19°  variation.  The  intersections  between  the  fractures  with  these 
orientations  are  plotted  in  Figure  4.28 


Trend  and  Plunge  of  the  Fracture  Intersections  (Figure  4.24  to  Figure  4.28): 

■  The  trend  and  plunge  of  each  line  of  intersection  is  plotted  in  Figure  4.24  to  Figure  4.26  to 
show  the  distribution  of  the  orientations  of  the  generated  fracture  intersections.  These  plots 
show  that  the  majority  of  the  intersections  trend  northwest. 

■  Figure  4.27  plots  the  calculated  orientations  of  the  fracture  intersections  using  the  mean 
orientations  of  the  four  fracture  sets.  Figure  4.28  shows  the  calculated  orientations  of  the 
intersections  using  the  data  given  in  Table  4.2.  This  includes  the  intersection  lines  using  the 
mean  orientations  of  the  fractures  as  well  as  the  intersections  when  the  ADip  of  ±19°  is 
applied  to  each  fracture  set.  All  in  all,  there  are  66  points  in  this  plot.  This  gives  a  shape  that 
comes  close  to  the  ones  exhibited  in  Figure  4.24  to  Figure  4.26. 

■  Comparing  Figure  4.24  -  Figure  4.26  to  Figure  4.27  shows  that  the  abundant  northwest 
trending  intersections  are  most  likely  formed  by  the  intersection  between  the  following  pairs 
of  fracture  sets:  A-D,  B-C,  B-D  and  C-D.  So  out  of  the  six  possible  sets  of  fracture 
intersections  in  Figure  4.27,  four  of  the  sets  trend  northwest.  Also  contributing  to  the 
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abundance  of  these  northwest  trending  intersections  is  the  higher  intensity  assigned  to 
fracture  set  D.  Figure  4.28  shows  that  other  pairs  of  intersecting  fracture  sets  also  contribute 
to  this  abundant  group  of  intersections  (A-B,  A-C,  A-A  and  B-B). 

■  Figure  4.24  to  Figure  4.26  show  a  number  of  intersections  that  are  oriented  horizontally 
(plunge  is  zero).  According  to  Figure  4.28,  these  intersections  are  formed  by  fractures 
belonging  to  the  same  fracture  set. 

The  next  section  presents  fracture  connectivity  as  it  relates  to  the  flow  behavior  of  the  fracture 
network.  Fracture  connectivity  is  described  by  the  flow  dimension,  which  dictates  the  type  of 
flow  that  occurs  in  the  network.  The  geometric  interpretation  of  the  flow  dimension  is  then  used 
to  develop  estimation  procedures  involving  the  fracture  intersection  geometries. 
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5  Fracture  Connectivity  Based  on  Flow  Behavior 

In  the  previous  sections,  fracture  connectivity  was  studied  based  on  the  geometric  characteristics 
of  the  fracture  intersections.  In  this  chapter,  a  different  approach  is  taken.  The  fracture  network 
connectivity  will  be  described  from  the  standpoint  of  flow  behavior  using  what  is  called  the  well- 
test  flow  dimension.  First,  an  overview  of  well-testing  is  given.  Then  the  method  used  for 
analyzing  well-test  data  to  obtain  the  flow  dimension  is  discussed.  Finally,  geometric 
approaches  to  determining  the  flow  dimension  will  be  presented  and  verified  using  finite  element 
flow  simulations. 

5. 1  Field  Determination 

5.1.1  Hydraulic  Testing  in  Fractured  Rock 

Hydraulic  testing  is  used  to  characterize  the  flow  behavior  as  well  as  the  geometry  of  the  fracture 
network.  Single  or  multiple  wells  can  be  used  but  only  single-well  tests  will  be  discussed  here. 
The  well  or  borehole  could  either  be  open  to  the  atmosphere  or  closed  off  with  the  use  of 
inflatable  vessels  called  packers  (see  Figure  5.1). 


Figure  5.1  -  An  interval  isolated  using  packers  on  each  end.  A  submersible  pump  is  typically  used  to  pump 
the  water  in  or  out  of  the  packer  interval 


To  perform  a  hydraulic  test,  a  well  is  first  drilled  into  the  formation.  The  test  equipment  is  put  in 
place  then  the  flow  in  the  well  is  allowed  to  reach  the  steady  state  condition.  Once  the  steady 
state  is  reached,  either  constant  pressure  or  constant  discharge  conditions  are  applied  at  the  well. 
For  a  constant  pressure  test,  the  transient  flow-rate  into  (or  out  of)  the  well  is  monitored  during 
the  test.  The  transient  head  in  the  well  is  monitored  for  a  constant  rate  test.  The  transient  rate  or 
head  is  plotted  versus  time  in  a  log-log  plot.  The  resulting  plot  is  then  compared  to  theoretical 
curves  for  known  flow  dimensions  in  order  to  come  up  with  an  estimate  of  the  flow  dimension 
for  the  system.  If  the  observed  data  fit  the  theoretical  curve  then  the  flow  dimension  of  the  curve 
is  taken  as  the  flow  dimension  of  the  fracture  network  for  that  particular  well  position.  This 
process  is  called  type-curve  matching.  The  derivation  of  type-curves  will  be  discussed  in  more 
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detail  in  Section  5.1.2.  The  data  for  the  drawdown  (or  pressure)  and  derivative  of  drawdown  are 
superimposed  onto  the  type-curves  of  different  flow  dimension  n  until  a  satisfactory  fit  is 
achieved.  The  comparison  with  the  derivative  of  drawdown  is  usually  done  for  refinement. 
Changing  the  position  of  the  well  will  likely  change  the  flow  dimension  such  that  one  might 
come  up  with  a  flow  dimension  distribution  for  a  fracture  network.  Altering  the  geometry  of  the 
well  will  also  likely  cause  a  change  in  the  flow  dimension  since  a  shorter  well  will  initially  have 
access  to  fewer  fractures  compared  to  a  longer  well  and  the  flow  will  likely  take  a  different  path 
into  the  fracture  network. 

Among  the  problems  encountered  in  hydraulic  tests  is  the  effect  of  wellbore  storage  on  the 
observed  data.  The  goal  is  to  determine  the  flow  behavior  of  the  fracture  network  and  it  is 
possible  that  the  true  flow  behavior  of  the  network  may  be  masked  by  the  behavior  of  the 
wellbore  (Doe  and  Chakrabarty,  1997).  Wellbore  storage  is  defined  as  the  volume  of  fluid  added 
to  or  released  from  storage  in  the  wellbore  for  a  unit  change  in  pressure  (Earlougher,  1977). 
Wellbore  storage  effects  can  be  broken  down  into  three  components:  Cy,  C2  and  C3  (Doe  et.  al., 
1987).  Ci  is  the  change  in  storage  due  to  the  change  in  water  level  in  the  well.  C2  is  the  change 
in  storage  due  to  fluid  compressibility.  C?  is  the  storage  due  to  the  deformation  of  the  wellbore, 
the  tubing  and  other  well  test  equipment.  C;  is  applicable  only  to  open  well  tests  and  sometimes 
this  may  be  much  larger  than  the  other  two  components  such  that  those  two  can  be  neglected 
(Doe  et.  al.,  1987).  In  most  packer  tests,  C;  can  usually  be  neglected.  For  C3,  the  contributions 
of  the  wellbore  and  the  tubing  can  be  computed  if  their  elastic  properties  are  known.  Controlled 
lab  tests  may  be  required  to  determine  the  contribution  of  the  packers  to  the  wellbore  effect  (Doe 
et.  al.,  1987). 

Another  problem  is  caused  by  the  disturbance  of  material  around  the  well  due  to  the  drilling 
process.  This  disturbed  material  can  manifest  itself  in  a  well  test  as  a  zone  of  altered 
permeability  or  in  what  is  commonly  called  a  skin  effect.  If  the  drilling  causes  an  increase  of 
permeability  then  there  is  a  negative  skin  effect.  If  there  is  a  decrease  of  permeability,  a  positive 
skin  effect  exists.  This  convention  can  be  remembered  using  what  is  known  as  a  skin  factor 
(Rock  Fractures  and  Fluid  Flow).  If  there  is  a  skin  of  higher  permeability  compared  to  the 
formation  then  the  drawdown  caused  by  pumping  fluid  out  of  the  well  will  be  less  than  when 
there  is  no  skin.  In  this  case,  the  skin  factor  is  negative.  If  the  skin  has  a  lower  permeability  than 
the  surrounding  formation,  the  drawdown  that  results  from  pumping  will  be  larger  than  when 
there  is  no  skin  therefore  the  skin  factor  is  positive. 

There  are  also  the  effects  due  to  the  outer  boundary.  The  two  basic  types  of  outer  boundaries  are 
the  no-flow  (or  closed)  and  the  constant  head  boundaries.  The  no-flow  boundary  can  be 

represented  mathematically  by  —  (r  =  rc,f)  =  0  and  the  constant  head  boundary  by 

or 

h(r  =  rc,t)  =  hc  where  rc  indicates  the  location  of  the  boundary.  A  typical  boundary  condition 
takes  this  form:  h(r  — >  °°,t)  =  0 .  In  other  words,  the  injection  or  extraction  does  not  cause  a 
drawdown  at  a  large  distance  from  the  well.  Constant  head  boundaries  may  also  indicate  a 
connection  to  a  reservoir  that  is  sufficiently  extensive  and  conductive  such  that  the  well  test  has 
no  effect  on  its  pressure  while  no-flow  boundaries  may  indicate  the  termination  of  a  fracture 
within  solid  rock  (Doe  et.  al.,  1987).  The  effect  of  a  constant  head  boundary  is  illustrated  in 
Figure  5.2  for  the  case  of  injection  into  an  aquifer.  The  dimensionless  curve  in  Figure  5.2 
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initially  follows  the  curve  for  the  condition  where  the  constant  head  boundary  is  located  at 
infinity  and  then  flattens  out  to  a  constant  value  depending  on  the  distance  of  the  constant  head 
boundary  from  the  well.  This  distance  is  indicated  by  a  dimensionless  parameter  Rd  =  R /rw 
where  R  is  the  distance  of  the  boundary  from  the  well  and  rw  is  the  radius  of  the  well.  The  effect 
of  a  no-flow  boundary  is  shown  in  Figure  5.3  for  injection  into  an  aquifer.  As  in  Figure  5.2,  the 
curves  in  Figure  5.3  initially  follow  that  of  an  aquifer  with  infinite  extent.  The  flow-rate 
subsequently  drops  at  a  time  that  depends  on  the  distance  of  the  no-flow  boundary  from  the  well 
indicated  by  RD.  The  final  rates  of  flow  in  the  different  curves  in  Figure  5.3  may  reflect  the  rate 
of  leakage  into  the  surrounding  low-permeability  rock  (Doe  et.  al.,  1987). 
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Constant  Head  Boundary  Effect 


Figure  5.2  -  Effects  of  a  constant  head  boundary  (from  Doe  et.  al.,  1987).  RD  is  a  dimensionless  parameter 
that  represents  the  distance  of  the  boundary  from  the  point  of  injection  (well) 


No-Flow  Boundary  Effect 


Figure  5.3  -  Effect  of  a  no-flow  boundary  (from  Doe  et.  al.,  1987).  RD  is  a  dimensionless  parameter  that 
represents  the  distance  of  the  boundary  from  the  point  of  injection  (well) 

The  next  section  takes  a  closer  look  at  the  physical  significance  of  the  flow  dimension  and  the 
derivation  of  type  curves. 
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5.1.2  Well-Test  Flow  Dimension  and  Type-Curve  Matching 

To  better  understand  the  concept  of  the  well-test  flow  dimension,  its  physical  significance  is 
discussed.  In  a  fracture  network,  the  flow  area  along  the  flow  paths  may  vary  as  the  distance 
away  from  a  well  raised  to  some  power.  Row  dimension  is  defined  as  the  power  of  this  change 
plus  one.  To  determine  the  flow  area  formed  between  two  intersections  lying  on  the  same 
fracture,  the  orientations  and  lengths  of  the  individual  intersections  must  be  found.  The 
geometry  of  the  intersections  is  used  to  calculate  the  flow  width,  which  is  multiplied  by  the 
fracture  aperture  to  get  the  flow  area.  The  flow  properties  may  also  change  with  radial  distance 
and  this  effect  can  be  combined  with  that  of  the  changing  flow  area  using  the  conductance,  C. 
Conductance  is  defined  as  the  product  of  the  flow  area  and  the  hydraulic  conductivity.  So,  a 
power  change  in  conductance  or  flow  area  can  be  written  as: 

C  Aj  oc  rn~l 

Equation  5.1 


where  C  is  the  conductance,  A/ is  the  flow  area,  r  is  the  distance  away  from  the  well  and  n  is  the 
flow  dimension. 

Some  examples  are  given  for  integer  values  of  n.  Figure  5.4  shows  the  case  for  n  =  1  and  the 
flow  area  is  Af  =  kpr°  where  kp  is  the  constant  of  proportionality.  This  is  equivalent  to  a  pipe 

with  constant  cross-sectional  area  extending  from  a  well.  A  fracture  that  has  been  closed  by 
mineralization  and  where  a  solution  channel  has  formed  can  possess  such  a  flow-path  geometry. 
Another  example  for  n  =  1  would  be  a  fracture  network  that  propagates  in  one  direction  and  with 
low  intensity.  For  n  =  2 ,  the  flow  area  is  Af  -kpr.  The  flow  area  increases  linearly  with  radial 

distance  away  from  the  well.  An  example  for  this  case  would  be  a  large  fracture  perpendicular  to 
the  well  and  intersecting  it  (Figure  5.5).  The  flow  area  at  a  radius  r  would  be  the  product  of  the 
circumference  of  a  circle  whose  radius  is  r  (the  distance  from  the  well)  and  the  fracture  aperture 
or  Af  =  2m  •  ap  where  ap  is  the  aperture  (Figure  5.5).  Assuming  that  the  aperture  is  constant 

throughout  the  fracture,  the  relationship  between  A/  and  r  is  linear.  For  a  flow  dimension  of 
n  =  3 ,  the  flow  area  increases  as  the  square  of  the  radial  distance  from  the  well.  An  example 
would  be  the  point  source  shown  in  Figure  5.6.  The  flow  is  radially  outward  in  all  directions 
and  the  flow  area  is  the  surface  of  the  sphere.  Think  of  the  change  in  flow  area  as  an  expanding 
sphere.  At  a  distance  r  from  the  source,  the  flow  area  is  the  surface  area  of  the  sphere  with 
radius  r,  that  is,  Af  =  4 m2 .  Thus  the  flow  area  varies  as  r2 .  This  is  a  very  ideal  example  and 

serves  only  to  illustrate  the  different  ways  the  flow  area  changes  with  radial  distance  away  from 
the  well.  A  fracture  network  extending  in  all  three  directions  with  high  intensity  may  exhibit 
such  a  variation  in  flow  area.  The  flow  dimension  can  also  take  on  values  less  than  one  and 
greater  than  three  as  well  as  non-integer  or  fractional  values.  Flow  area  may  decrease  by  a 
power  law  of  radial  distance  reflecting  a  flow  dimension  less  than  one  (Doe,  1991).  Flow  in 
such  a  formation  is  called  sublinear.  On  the  other  hand,  flow  area  may  increase  with  distance  by 
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a  power  greater  than  two,  corresponding  to  a  flow  dimension  greater  than  three.  Such  geometry 
supports  hyperspherical  flow  (Doe,  1991). 


Well 


n  =  1 


Figure  5.4  -  Example  for  flow  dimension  equal  to  1 


Af  is  the  area  of  the 
edge  of  this  disk  and 
is  linearly  increasing 
withr 


p 


Figure  5.5  -  Example  for  flow  dimension  equal  to  2 


To  understand  the  concept  of  a  non-integer  or  fractional  flow  dimension,  consider  the  two 
networks  of  conductive  elements  in  Figure  5.7.  Figure  5.7a  is  a  regular  Euclidean  network 
while  Figure  5.7b  approximates  a  fractal  network  known  as  a  modified  Sierpinski  gasket  (Rock 
Fractures  and  Fluid  Flow).  Assuming  that  a  well  pumps  from  the  center  of  each  network,  the 
flow  area  available  at  a  distance  r  can  be  determined  by  drawing  a  circle  of  radius  r  and  counting 
the  conductive  elements  intersected  by  the  circle.  In  network  (a),  the  number  of  conductive 
elements  is  directly  proportional  to  the  distance  r  from  the  well.  This  means  that  network  (a)  has 
a  flow  dimension  of  two.  Therefore,  Figure  5.7(b)  is  another  representation  of  Figure  5.5.  In 
network  (b),  however,  the  flow  area  is  proportional  to  r0  59  and  its  flow  dimension  is  1.59.  The 
fractal  network  in  Figure  5.7(b)  has  a  lower  flow  dimension  because  as  r  increases,  the  circle 
formed  intersects  increasingly  larger  regions  without  conductive  elements.  So  a  fractal  network 
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can  be  visualized  as  a  partially  connected  network  of  conductive  elements  (Rock  Fractures  and 
Fluid  Flow). 

Now  that  geometric  representations  of  the  flow  dimension  have  been  presented,  it  is  time  to  look 
at  how  it  influences  the  flow  behavior  of  the  fracture  network.  The  flow  behavior  of  the  fracture 
network  for  different  values  of  n  can  be  shown  using  type-curves.  As  discussed  before,  type- 
curves  are  a  tool  for  analyzing  well-test  data  in  order  to  assess  the  flow  and  geometric  properties 
of  the  fracture  network.  Type-curves  are  plots  of  the  head  or  discharge  at  the  well  versus  time 
and  are  derived  by  solving  the  governing  equations  for  the  flow  occurring  between  a  well  and  a 
fracture  network.  An  example  of  these  governing  equations  is  given  in  the  model  proposed  by 
Barker  (1988)  for  hydraulic  tests  in  fractured  rock.  Barker  generalized  the  equations  to  include 
non-integer  values  of  the  flow  dimension.  He  found  this  necessary  because  oftentimes,  the  use 
of  integral  values  in  a  flow  model  gave  results  that  could  not  satisfactorily  match  observed  data. 

=  3 

Af  is  the 
surface  area 
of  this  sphere 


Figure  5.6  -  Example  for  flow  dimension  equal  to  3 


(a)  (b) 

Figure  5.7  -  Network  (a)  is  a  regular  Euclidean  network,  (b)  is  a  fractal  network  of  flow  dimension  1.59 
(from  Rock  Fractures  and  Fluid  Flow) 

To  derive  the  governing  equations,  Barker  made  the  following  assumptions: 

1.  Darcy’s  law  applies  throughout  the  system. 

2.  Flow  is  radial  and  n-dimensional  from  a  single  source  into  a  homogeneous  and  isotropic 
fractured  medium  characterized  by  a  hydraulic  conductivity  Kf  and  specific  storage  Ssf. 

3.  The  source  is  an  n-dimensional  sphere  (a  finite  cylinder  in  two-dimensional  flow  or  a 
sphere  for  three-dimensional  flow). 
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4.  The  source  (well)  has  an  infinitesimal  skin  characterized  by  a  skin  factor  sf .  A  head  loss 
occurs  across  the  surface  or  skin  of  the  source  and  this  head  loss  is  proportional  to  sf  and 
the  rate  of  flow  through  the  surface. 

First,  the  flow  through  the  shell  bounded  by  equipotential  surfaces  at  r  and  r  +  Ar  is 
considered  (shown  in  Figure  5.8  for  n  =  2 ).  The  region  between  the  surfaces  has  a  volume 
of  b*~nanrn~xAr  (for  small  Ar )  where  an  is  the  surface  area  of  a  unit  sphere  in  n  dimensions 
and  is  defined  as: 

n 

271^ 

a„  = - 

"  Tin  12) 

Equation  5.2 

where  T(jc)  is  the  gamma  function.  The  physical  significance  of  b3~n  can  best  be  represented 
for  the  case  where  n  =  2 ,  it  is  the  height  of  the  circular  cylinder  representing  the  fractured  rock 
(see  Figure  5.8).  For  n  =  3 ,  there  seems  to  be  no  physical  significance  since  b*~n  reduces  to  1. 

For  a  small  change  in  time,  At ,  the  head  in  the  shell  changes  an  amount  Ah  and  the  volume  of 
water  entering  the  shell,  AV ,  can  be  expressed  as: 

AV  =  Ssfb3~nOLnrn~1ArAh 

Equation  5.3 

where  Ssf  ,  the  specific  storage  of  the  formation,  is  defined  as  the  volume  of  water  that  a  unit 

volume  of  formation  releases  from  storage  under  a  unit  decline  in  hydraulic  head  (Barker,  1988). 
Using  Darcy’s  law,  the  net  volumetric  rate  q  into  the  shell  is  given  by: 

f)h  ?!h 

q  =  Kfb3~n an  (r  +  Ar)"'1  ~(r  +  Ar,t)  -  Kfbl~nanrnH  —  (r,r) 

dr  or 

Equation  5.4 

where  Kf  is  the  hydraulic  conductivity  of  the  fractured  medium,  h  is  the  head  in  the  fracture 
formation,  r  is  the  distance  from  the  well  or  source,  t  is  the  time  and  b  and  a„  are  as  defined 
before.  Considering  the  conservation  of  the  water  in  the  shell  ( AV  =  qAt )  and  substituting 

Equation  5.3  and  Equation  5.4,  we  have 
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S  fb3~n a ^"^Ar Ah  =  Kfb*~nan[(r  +  Ar)"-1  ^(r  +  A r,t)  -  rn~l  ^(r,t)]At 

dr  dr 

Equation  5.5 

Re-arranging  gives 

„  Ah  /f/lfr+Arr1f(r  +  Ar,r)-r-'|(r,<)] 

sf  At  r n'1  A r 

Equation  5.6 

Taking  the  limits  of  both  sides  gives 

dh  _  Kf  d  f  i  dh' 

sf  dt  rn~ldr  {  dr) 

Equation  5.7 


r 


Figure  5.8  -  Equipotential  surfaces  at  r  and  r  +  Ar 

The  change  in  volume  of  the  wellbore  storage  (see  Figure  5.9)  can  also  be  related  to  the 
injection  rate  using  Darcy’s  law.  This  gives  the  following  equation: 

S„AH  =  m )  + 

dt 

Equation  5.8 
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and  therefore 


S. |^(0  =  6(0 + K^"  a„C'  |^(r„ ,!) 

Equation  5.9 

where  Sw  is  the  storage  capacity  of  the  source  (Figure  5.9),  H(t)  is  the  head  in  the  source  (well), 
<2(0  is  the  injection  rate  into  the  well  and  rw  is  the  radius  of  the  well.  There  is  also  a  head  loss 
across  the  boundary  between  the  well  and  the  fracture  formation.  The  difference  in  the  head  in 
the  well  and  the  head  in  the  fracture  formation  at  a  radial  distance  rw  is  given  by 

H(t)  =  h(rw,t)-sfrw^(rw,t) 

Equation  5.10 

where  .syis  the  skin  factor. 


Figure  5.9  -  Illustration  of  wellbore  storage  effect  (from  Barker,  1988) 


One  boundary  condition  is  that  the  head  at  some  fixed  distance  from  the  well  is  constant  or 
h(r0,t)  =  h0  and  usually  takes  the  form  of  lim h(r,t)  =  0 .  In  other  words,  the  pumping  in  or  out 

of  water  does  not  cause  a  drawdown  at  distances  far  from  the  well  at  any  time  t. 

The  initial  condition  (i.e.  just  before  pumping  starts)  states  that  the  head  in  the  well  and  the 
fracture  network  is  zero  or  h(r, 0)  =  H( 0)  =  0  (in  equilibrium).  The  solution  to  Equation  5.7  is 
then  obtained  using  Laplace  transforms  and  modified  Bessel  functions.  Relationships  between 
the  Laplace  transforms  of  the  discharge,  the  head  in  the  well  and  the  head  in  the  fracture  network 
are  derived.  For  a  detailed  derivation  of  these  relationships,  the  reader  is  referred  to  Barker 
(1988). 
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The  derived  relationships  between  the  Laplace  transforms  of  the  discharge,  the  head  in  the  well 
and  the  head  in  the  fracture  network  can  further  be  simplified  by  additional  conditions.  For 
example,  for  a  constant  rate  test,  the  condition  <2(0  =  <20  is  applicable.  For  a  constant  head  test, 
H(t)  =  H0  is  applied.  Simplifications  from  well  geometry  include  letting  the  radius  of  the  well 

approach  zero  to  represent  a  line  source.  Barker  (1988)  discusses  in  detail  different  cases  that 
make  use  of  such  simplifications. 

Doe  and  Chakrabarty  (1996)  extended  Barker’s  model  to  two-zone  composite  formations.  Two- 
zone  formations  are  composed  of  an  inner  and  outer  zone  each  with  its  own  set  of  flow 
properties  and  extent  (example  given  in  Figure  5.10).  Basically,  what  Doe  and  Chakrabarty 
have  done  is  to  consider  the  skin  as  a  zone  in  itself  rather  than  use  an  infinitesimally  thin  region 
to  represent  it  as  Barker  did. 


Figure  5.10  -  Two-zone  composite  system  with  both  inner  and  outer  zone  flow  dimensions  equal  to  2 
(Concentric  Cylinders).  Inner  zone  may  have  different  flow  properties  from  the  outer  zone. 


Doe  and  Chakrabarty  used  the  same  governing  equation  (Equation  5.7)  but  applied  to  each  of 
the  two  zones. 


Ki  d  )  =  s 


r"'-1  dr 


dr  J  ~sl  dt 

Equation  5.11 


rw^r<rx 


K2  d 
r"2”1  dr 


r 

r"2_1 

V 


dh2'\_  d\ 
dr  )  sl  dt 


Equation  5.12 


rx  <r<°° 


where  K\  and  Kj  are  the  hydraulic  conductivities  of  the  inner  and  outer  zone,  respectively.  n\ 
and  ti2  are  the  flow  dimension  values  for  the  inner  and  outer  regions,  respectively.  The  head  in 
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the  inner  region  is  h\  and  in  the  outer  region  it  is  hj.  Ss\  is  the  specific  storage  of  the  inner  region 
and  SS2  is  that  of  the  outer  region.  Rate  and  head  continuity  should  also  be  considered  at  r  =  rx . 
For  the  rate  continuity,  we  have 

'MU  ... --Hi  =^i 

\  K,  «*  ‘  J  Sr  I"1  Sr  l-™> 

and  for  the  head  continuity,  hx(r  =  r{,t)  =  h2(r  =  rx,t) .  The  following  conditions  are  used  to 
solve  the  system  of  partial  differential  equations  (Equation  5.11  and  Equation  5.12): 

=  0)  =  h2(r,t  =  0)  =  H(t  =  0)  =  0 

Equation  5.13 

Equation  5.11  and  Equation  5.12  are  solved  simultaneously  using  Laplace  transforms  and 
modified  Bessel  functions.  Figure  5.11  and  Figure  5.12  show  examples  of  generated  type- 
curves  for  a  constant  rate  test.  The  derivative  of  the  drawdown  (or  pressure)  is  included  in  order 
to  refine  the  match  between  the  data  and  the  type-curves  and  therefore  refine  the  estimate  of  the 
flow  dimension. 


Type-Curves  for  Constant-Rate  Tests 


Figure  5.11  -  Type-curves  for  constant-rate  well  tests  (from  Golder  Associates  Excel  spreadsheet  program 
FracDim) 
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Figure  5.12  -  Type-curves  of  the  derivative  of  drawdown  for  constant-rate  well-tests  tests  (from  Golder 
Associates  Excel  spreadsheet  program  FracDim) 


The  type-curves  in  Figure  5.11  and  Figure  5.12  are  then  used  to  analyze  the  drawdown  (or 
pressure)  data  from  actual  or  simulated  well  tests. 


5.2  Flow  Dimension  Obtained  Through  Fracture  Network  Modeling  and  Finite 
Element  Simulation 

In  order  to  determine  the  well-test  flow  dimension  in  a  simulated  fracture  network  accurately, 
simulated  well  tests  need  to  be  performed.  The  simulation  results  (e.g.  drawdown  at  the  well 
versus  time)  can  then  be  analyzed  using  type-curves  such  as  those  given  in  Figure  5.11  and 
Figure  5.12  to  obtain  the  flow  dimension.  The  simulations  performed  in  this  report  will  mainly 
assume  a  constant  rate  condition  at  the  well.  Golder  Associates  Inc.  has  developed  a  flow 
modeling  software  called  MAFIC  that  simulates  flow  in  discrete  fracture  networks  as  opposed  to 
using  equivalent  porous  media  models.  MAFIC  simulates  flow  in  both  the  fracture  network  and 
the  rock  matrix.  For  our  purposes,  no  flow  will  be  allowed  in  the  rock  matrix  in  order  to  focus 
solely  on  the  flow  behavior  of  the  fracture  network.  Three-dimensional  networks  of  triangular 
finite  elements  are  used  to  model  the  flow  in  the  fractures. 

For  a  nearly  incompressible  fluid  such  as  water  and  for  flow  in  two  dimensions  such  as  the  flow 
in  a  fracture,  the  volume  conservation  equation  takes  the  form 


-TV\  = 


<1 


Equation  5.14 


where  S  is  the  fracture  storativity,  h  is  the  hydraulic  head,  T  is  the  fracture  transmissivity  (the 

product  of  the  hydraulic  conductivity  and  the  fracture  aperture),  q  is  a  source  or  sink  term,  t  is  the 
—  2  - 

time  and  V  is  the  two-dimensional  Laplace  operator.  Storativity  is  defined  as  the  volume  of 
water  that  is  expelled  from  storage  per  unit  surface  area  under  a  unit  change  in  head. 


Equation  5.14  is  solved  using  a  Galerkin  finite  element  solution  scheme.  A  detailed  discussion 
of  the  numerical  procedure  can  be  found  in  the  MAFIC  user  manual. 

Flow  simulations  using  MAFIC  involve  the  following  steps: 


1.  A  fracture  network  is  generated  using  FracMan  (Golder  Associates  fracture  modeling 
software). 

2.  The  geometry  of  the  well  (well  radius,  orientation,  length,  location)  is  incorporated  into 
the  generated  fracture  network.  The  outer  boundaries  are  defined.  Flow  conditions  (e.g. 
no-flow,  constant  rate,  constant  head)  at  the  well  and  the  outer  boundaries  of  the 
modeling  volume  are  prescribed.  For  the  simulations  in  this  report,  the  outer  boundaries 
of  the  modeling  volume  are  prescribed  as  constant  head  boundaries  with  h  =  0.  This  is 
equivalent  to  the  condition  shown  in  Figure  5.13  below. 
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Figure  5.13  -  Modeling  volume  submerged  in  water  with  top  boundary  coinciding  with  the  water  level.  The 
modeling  volume  is  fully  saturated 


At  this  stage,  there  is  no  flow  in  or  out  of  the  modeling  volume  since  all  heads  are  zero.  If 
enough  time  is  allowed  after  a  well  is  drilled  into  the  formation  (the  well  is  allowed  to  fill  up 
with  water),  the  steady  state  condition  would  also  be  that  there  is  no  flow  in  the  modeling 
volume. 


3.  Using  MAFIC,  the  steady  state  solution  for  the  fracture  network  given  the  conditions  in 
step  2  is  obtained.  First,  a  group  flux  boundary  condition  is  applied  to  the  nodes  of  the 
elements  that  make  up  the  well  and  then  the  steady  state  condition  is  solved  for.  Group 
flux  boundary  condition  means  than  the  assigned  flux  is  divided  among  the  nodes 
according  to  their  respective  transmissivities.  This  is  different  from  the  constant  flux 
condition  since  the  constant  flux  condition  assigns  the  same  flux  to  all  the  nodes  in  the 
boundary.  Group  flux  therefore  has  the  advantage  of  not  overloading  nodes  that  cannot 
support  the  assigned  flow.  The  surface  of  the  side  of  the  well  will  be  modeled  using  six 
panels  with  group  flux  (Figure  5.14)  while  the  top  and  bottom  of  the  well  will  be  closed. 
Flux  is  negative  for  extraction  and  positive  for  injection. 


top  of  well-  closed- 
flow  boundary 


the  sides  of  the 
prism  are  group 
flux  boundaries 


/ 

A  j  n  _ 


bottom  of  well-  closed-flow 
boundary 


Figure  5.14  -  The  well  is  modeled  as  a  prism  with  six  panels  and  the  nodes  located  on  the  panels  are  assigned 
group  flux  boundary  conditions 


4.  A  transient  rate  is  applied  at  the  well  and  the  response  (i.e.  drawdown  versus  time)  in  the 
fracture  network  is  recorded.  Once  the  steady  state  condition  has  been  established,  a 
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transient  rate  larger  than  the  initial  group  flux  assigned  is  applied  at  the  well.  This 
transient  rate  is  also  assigned  as  a  group  flux  boundary  condition.  The  response  is 
compared  to  type-curves  (see  Figure  5.11  and  Figure  5.12)  to  obtain  the  flow  dimension. 

Various  file  formats  are  required  to  run  the  flow  simulations.  The  extensions  of  the  required 
files  are  listed  and  their  contents  are  described  below.  The  detailed  contents  of  these  files  can  be 
found  in  the  Appendix. 

1.  .SAB  -  This  file  contains  the  locations  and  geometry  of  the  inner  boundary  (the  well)  and 
the  outer  boundary  (boundaries  of  the  modeling  volume)  as  well  as  the  boundary  and 
initial  conditions  at  the  different  parts  of  each  boundary  (constant  flux,  constant  head, 
time-varying  flux  etc.).  This  file  is  usually  called  the  “exploration”  file  (since  it  is  also 
used  to  determine  fracture  spacing,  locate  pathways  in  the  network,  etc.). 

2.  .FAB  -  A  file  that  contains  the  coordinates  of  the  vertices  of  the  fractures  in  the 
simulated  fracture  network.  It  also  contains  properties  of  the  fractures  such  as 
transmissivity,  storativity  and  aperture.  Other  fracture  properties  may  also  be  included 
here.  Fracture  network  simulations  in  FracMan  produce  .FDT  files,  which  must  be 
converted  to  .FAB  files  for  use  in  flow  simulations. 

3.  .MAF  -  The  .SAB  and  .FAB  files  are  combined  using  MeshMaster  to  produce  .MAF 
files.  MeshMaster  converts  the  fracture  network  and  the  well  into  a  finite  element  mesh. 
This  file  format  can  now  be  used  in  MAFIC.  The  .SAB  files  can  be  used  in  different 
fracture  simulations  (.FAB  files)  and  vice  versa.  This  feature  makes  it  easier  to  apply 
different  well  and  boundary  conditions  to  a  single  fracture  network  or  to  apply  a  single 
set  of  well  and  boundary  conditions  to  a  number  of  fracture  networks.  The  .MAF  file 
includes  the  following  information: 

■  The  type  of  the  output  desired:  summary  or  full.  The  summary  output  option  is  often 
enough. 

■  The  number  of  nodes  in  the  finite  element  mesh  for  which  the  head  versus  time  values 
should  be  recorded  in  a  separate  file.  The  specific  node  numbers  should  also  be  indicated 
later  in  the  file. 

■  The  type  of  elements  to  be  used  in  the  flow  simulations.  There  are  two  element  types: 
linear  and  quadratic.  Linear  elements  will  be  used  in  for  the  simulations  in  this  report. 

■  A  flag  that  indicates  whether  a  restart  file  (restart.MAF)  should  be  created.  A  restart  file 
contains  nodal  flux  and  head  values  from  the  last  time  step  of  the  current  run.  This  file 
can  be  used  as  the  input  file  for  another  stage  of  flow  simulations.  For  example,  one  may 
desire  to  first  simulate  to  a  steady  state  condition  reflecting  the  insertion  of  a  well  into  the 
fracture  network  and  allowing  equilibrium  and  make  this  steady  state  condition  the  initial 
state  from  which  to  perform  a  constant  rate  test.  The  restart  file  in  this  case  would 
include  the  head  and  flux  information  at  all  the  nodes  at  the  steady  state  and  this,  in  turn, 
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can  become  the  starting  point  for  another  round  of  simulations  (say,  a  transient  rate  is 
applied  at  the  well). 

■  The  type  of  solution  required:  transient  or  steady  state.  A  transient  solution  will  require 
the  program  to  go  through  all  the  time  steps  that  have  been  input.  A  steady  state  solution 
will  ignore  the  time  steps  and  go  directly  to  the  steady  state. 

■  The  tolerance  for  solution  convergence  (should  be  >  lxlO'10)  and  the  number  of  iterations 
that  can  be  allowed  in  a  timestep  to  reach  convergence  (should  be  >  0). 

■  The  timesteps  are  also  included.  The  desired  type  of  output  at  the  end  of  each  timestep  is 
indicated  as  well.  The  timesteps  are  ignored  when  steady  state  calculations  are 
performed. 

■  The  coordinates  of  the  nodes  and  the  initial  flux  and  head  at  each  node.  The  element 
numbers  are  also  shown  including  the  nodes  that  make  up  each  element. 

4.  .MFT  -  The  file  format  produced  by  editing  the  .MAF  in  EdMesh.  After  MAFIC  is  run 
using  the  .MAF  file  and  a  restart.MAF  file  is  produced,  the  restart.MAF  file  must  be 
modified  for  the  next  stage  in  the  flow  simulation  (i.e.  when  going  from  the  steady  state 
to  performing  the  actual  well  test)  using  the  program  EdMesh.  In  EdMesh,  one  can 
change  boundary  conditions  for  specific  boundaries,  enter  the  new  timesteps  for  the  next 
simulation  stage  and  change  the  solution  mode  from  steady  state  to  transient.  The  .MFT 
file  can  be  used  directly  in  MAFIC  to  run  the  next  stage  of  the  flow  simulation.  This  next 
stage,  in  turn,  produces  its  own  output  file  of  the  desired  filename  extension  (for 
example:  filename.OUT).  The  important  output  file  contents  include  the  heads  and 
fluxes  at  all  the  nodes  at  the  end  of  each  timestep.  For  the  purpose  of  monitoring  the 
head  versus  time  at  a  specific  node,  the  user  can  also  specify  the  creation  of  a  plot.DAT 
file.  The  desired  node  numbers  can  be  entered  into  the  .MFT  file  so  that  MAFIC  writes 
the  head  values  at  these  nodes  into  the  plot.DAT  file  at  the  end  of  each  timestep.  This  is 
especially  useful  in  determining  the  flow  dimension  using  a  constant  rate  well  test  (the 
drawdown  vs.  time  is  observed). 

5.  .SET  -  This  file  contains  a  record  of  all  the  changes  made  on  the  .MAF  file  using 
EdMesh.  This  file  can  then  be  used  to  run  EdMesh  in  batch  mode  (i.e.  there  will  be  no 
need  to  enter  the  same  changes  all  over  again  if  one  wants  to  modify  another  .MAF  file). 
For  example,  the  user  has  made  changes  to  restart_l.MAF  using  EdMesh  and  wants  to 
make  the  same  changes  to  the  file  restart_2.MAF.  The  user  does  not  have  to  type,  say,  all 
the  same  timesteps  used  to  modify  restart_l.MAF  in  order  to  change  restart_2.MAF.  The 
user  only  needs  to  change  the  target  filename  in  the  edmesh.SET  file  to  “restart_2”  and 
then  type  “ED_320K  <  edmesh.SET”  at  the  command  line  (ED_320K  is  the  executable). 

The  following  sections  discuss  three  variants  of  an  approximate  approach  that  estimates  the  flow 
dimension  using  the  distance-flow  width  relationships  in  a  fracture  network.  These  will  then  be 
verified  using  finite  element  flow  simulations  on  the  same  fracture  networks  using  the  same  well 
geometry. 
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5.3  Flow  Dimension  Obtained  Through  Fracture  Network  Modeling  and 
Distance-Conductance  Relationships 

In  the  previous  approach,  the  determining  the  flow  dimension  involved  computationally 
intensive  flow  simulations  on  the  simulated  fracture  networks.  Another  approach,  developed  by 
Dershowitz,  estimates  the  flow  dimension  directly  from  the  geometry  of  the  fracture 
intersections.  First,  the  intersections  between  the  fractures  are  determined  then  a  graph  theory 
search  is  conducted  from  the  well  out  into  the  fracture  network  in  order  to  create  the  path  of  the 
flow.  Along  the  path  of  the  flow,  the  change  in  flow  area  or  conductance  is  recorded.  The  log  of 
flow  area  or  conductance  is  plotted  versus  the  log  of  the  tortuous  radial  distance  and  the  flow 
dimension  is  estimated  from  the  slope  of  this  plot. 

To  explain  this  approach,  we  start  with  the  relationship  between  the  flow  area  and  the  radial 
distance  from  the  well,  which  is  given  by  Af  =  kprn~l  where  Af  is  the  flow  area,  r  is  the  radial 
distance,  n  is  the  flow  dimension  and  kp  is  a  constant  of  proportionality.  Taking  the  logarithm 
of  each  side  gives 


log  Af  =  (n  —  1)  log  r  +  log  kp 
Equation  5.15 


This  is  the  slope-intercept  form  for  the  equation  of  a  line,  y-  Sx+yr  So  the  slope  of  this  line  is 
equal  to  n  - 1 .  The  flow  dimension  is  thus 

n  —  S  + 1 
Equation  5.16 

The  issue  now  becomes  how  these  flow  areas  (and  consequently  the  conductance)  are  defined. 
Dershowitz  (1996)  proposed  an  approach  that  converts  a  three-dimensional  fracture  network  into 
an  equivalent  three-dimensional  network  of  one-dimensional  pipes.  These  pipes  connect  the 
midpoints  of  the  intersections  along  a  path  and  the  lengths  are  the  distances  between  the 
connected  intersections.  Each  pipe  is  also  assigned  a  conductance  (or  flow  area)  based  on  the 
lengths  of  the  intersections  or  “traces”  as  well  as  the  orientation  of  the  pipe  connecting  them. 
This  method  of  defining  the  flow  area  or  conductance  is  described  in  the  next  section  (Section 
5.3.1).  Two  other  approaches  are  also  discussed:  flow  areas  based  on  individual  intersections 
and  flow  areas  based  on  cubical  elements  with  assigned  flow  areas. 

5.3.1  Equivalent  Pipes  Using  Pairs  of  Intersections 

The  original  approach  in  defining  the  flow  area,  given  by  Dershowitz  calculates  the  flow  width 
based  on  the  pairs  of  intersections  along  the  path  of  the  flow.  The  flow  width  shown  in  Figure 
5.15  is  based  on  the  intersection  lengths,  Lj(.  and  L2i ,  and  is  given  by 
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Equation  5.17 

where  Wj  is  the  flow  width  and  F,  is  a  channeling  factor.  The  flow  area  is  W,  multiplied  by  the 
fracture  aperture. 

Flow  Area,  Af,  whose  width,  Wh 
depends  on  Ft 


Figure  5.15  -  Flow  width  as  a  function  of  the  lengths  of  two  adjacent  intersections 


The  flow  width  at  a  certain  distance  is  a  function  of  the  lengths  of  two  consecutive  intersections 
in  a  path.  First,  the  vector  connecting  the  midpoints  of  the  two  intersections  is  calculated.  Then 
the  length  of  the  projection  of  each  intersection  onto  the  line  perpendicular  to  the  vector  is 
calculated  (Figure  5.16).  The  average  of  these  two  projections  is  the  flow  width  at  that  distance. 


105 


Figure  5.16  -  The  actual  lengths  used  are  the  projections  of  the  intersection  onto  a  line  perpendicular  to  the 
vector  connecting  the  midpoints  of  the  two  intersections 

The  averaging  procedure  gives  rise  to  a  possibility  that  a  very  short  intersection  will  be  paired 
with  a  very  long  intersection  thereby  masking  the  effect  of  the  short  intersection. 

In  the  next  section,  an  approach  that  defines  the  flow  widths  based  on  the  length  of  individual 
intersections  is  presented. 


5.3.2  Equivalent  Pipes  Using  Single  Intersections 

Another  way  of  defining  the  flow  width  is  by  using  the  lengths  of  individual  intersections  as  the 
flow  widths  themselves  (Figure  5.17).  This  avoids  the  averaging  procedure  and  derives  the 
distance-conductance  relationship  based  on  the  lengths  of  the  intersections  as  they  are.  Figure 
5.17  shows  that  at  a  radial  distance  of  di,  the  flow  width  is  given  by  Wl  =  L,, .  At  a  radial 
distance  of  d{+d2,  the  flow  width  is  W2  =  L2i .  Very  small  or  point  intersections  will  be 
represented  as  well  as  very  large  intersections. 
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Figure  5.17  -  Flow  width  as  a  function  of  the  individual  intersection  lengths 


The  next  proposed  method  of  defining  the  flow  width  is  aimed  at  determining  how  coarse  the 
assignment  of  radial  distance  as  well  as  flow  area  can  be.  In  this  approach,  the  modeling  volume 
is  divided  into  smaller  cubical  elements. 


5.3.3  Cubical  Element  Approximation 

The  third  estimating  approach  is  aimed  at  determining  the  coarseness  with  which  the  fracture 
intersections  are  considered  in  order  to  arrive  at  a  reasonable  estimate  of  the  flow  dimension. 
First,  the  modeling  volume  is  subdivided  into  smaller  cubical  elements  (Figure  5.18). 
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Figure  5.18  -  The  modeling  volume  is  divided  into  smaller  cubical  elements 

The  fractures  that  intersect  the  well  are  located  and  the  paths  from  the  well  into  the  fracture 
network  are  traced  (Figure  5.19).  These  paths  connect  the  fracture  intersections  to  each  other. 
The  fracture  intersections  along  the  paths  are  then  assigned  to  their  respective  cubical  elements 
(Figure  5.20).  A  fracture  intersection  belongs  to  a  cubical  element  if  the  midpoint  of  the 
intersection  is  located  within  the  cubical  element.  Then,  according  to  the  order  in  which  the 
intersections  appear  in  the  paths  that  were  traced,  the  corresponding  cubical  elements  are  also 
arranged  in  an  equivalent  path.  Along  the  equivalent  path,  the  distances  are  composed  of  the 
distances  between  the  centers  of  the  cubical  elements  (Figure  5.21).  The  distances  from  the  well 
to  the  first  accessed  cubical  elements  are  also  computed  (Figure  5.22).  Correspondingly,  the 
flow  width  for  a  specific  cubical  element  is  the  total  length  of  the  intersections  assigned  to  it. 


Figure  5.19  -  The  path  from  the  well  into  the  fracture  network  is  traced  and  the  intersections  located 
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Figure  5.20  -  The  individual  intersections  are  assigned  to  their  respective  cubical  elements.  An  individual 
intersection  is  assigned  to  the  cubical  element  if  its  midpoint  is  located  within  that  element 


Figure  5.21  -  The  distances  between  connected  cubical  elements  are  computed.  This  will  now  represent  the 
radial  distance  into  the  fracture  network 
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Figure  5.22  -  The  distance-flow  width  relationship  is  calculated  and  the  flow  dimension  is  derived  from  this 
relationship 


The  absolute  values  of  flow  dimension  resulting  from  this  approach  can  be  expected  to  be  higher 
than  those  from  the  single  intersection  method  (Section  5.3.2)  especially  for  fracture  networks 
that  have  high  intensity  and  for  a  coarse  division  of  the  modeling  volume.  When  the  modeling 
volume  is  divided  coarsely  highly  tortuous  paths  are  being  replaced  by  straight  lines  (the 
distances  between  the  centers  of  two  cubical  elements,  for  example:  the  path  in  Figure  5.20  is 
replaced  by  Figure  5.21)  and  this  is  combined  with  a  lumping  together  of  flow  widths  (assigning 
intersections  to  cubical  elements,  see  also  Figure  5.20).  These  lead  to  a  different  distance-flow 
width  relationship  compared  to  the  one  derived  using  the  single  intersection  method.  Therefore, 
there  will  be  a  higher  rate  of  change  of  flow  width  with  respect  to  radial  distance  and  this  will 
lead  to  larger  absolute  values  of  flow  dimension  (since  flow  dimension  is  the  slope  of  the  log 
flow  width-log  radial  distance  relationship  plus  one).  However,  the  flow  dimension  values  also 
depend  on  two  other  things:  the  manner  in  which  the  flow-width  is  calculated  for  a  certain 
interval  of  radial  distance  and  the  resulting  behavior  of  the  log-log  plot  of  flow-width  versus 
radial  distance  since  linear  regression  is  needed  in  order  to  estimate  the  flow  dimension.  This 
will  become  more  apparent  in  the  latter  part  of  Section  5.4  which  presents  the  results  for  this 
method. 

The  next  section  shows  the  results  of  the  application  of  the  distance-conductance  (or  flow  width) 
approaches  presented  above  and  their  comparison  with  results  from  finite-element  simulations. 
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5.4  Results  and  Discussion 

In  order  to  determine  the  accuracy  of  the  different  methods  of  estimating  the  flow  dimension 
presented  in  Section  5.3,  fracture  systems  will  be  generated  to  compare  the  flow  dimension 
estimates  from  distance-flow  width  relationships  derived  using  the  original  method  (equivalent 
pipes  using  pairs  of  intersections,  Section  5.3.1),  individual  intersection  method  (Section  5.3.2) 
and  the  cubical  element  approach  (Section  5.3.3)  to  those  obtained  using  finite-element 
simulations.  Five  fracture  networks  will  be  simulated  in  200  by  200  by  200  meter  modeling 
volumes  using  the  FracMan  modeling  software  from  Golder  Associates.  The  same  mean  fracture 
orientations  in  Table  4.2  (page  65)  will  be  used  to  generate  the  five  fracture  networks  in  the 
verification  but  different  size  and  orientation  distributions  as  well  as  fracture  intensities  will  be 
used  due  to  the  much  larger  modeling  volume  (2003m3  here  compared  to  203  m3  in  Chapter  4). 
Increasing  the  size  (equivalent  radius)  of  the  fractures  and  decreasing  the  intensity  will  make  the 
simulations  less  time  consuming.  The  modeling  parameters  are  given  in  Table  5.1  below. 


Set 

Trend* 

Plunge* 

Number 

Equivalent 
Radius  (m) 

A 

8° 

2° 

30 

40 

B 

220° 

10° 

30 

40 

C 

O 

O 

00 

2° 

30 

40 

D 

110° 

20° 

60 

40 

Table  5.1  -  Modeling  parameters  for  the  five  fracture  networks.  *Mean  pole  orientation,  trend  is  clockwise 
from  North.  The  number  of  fractures  from  set  D  is  assumed  to  be  twice  that  of  any  of  the  other  sets  because 
set  D  has  been  observed  to  be  the  most  abundant.  For  the  pole  orientations,  the  Fisher  distribution  is  used  for 
each  set  and  the  exponential  distribution  is  assumed  for  the  size  distribution 


Two  well  geometries  will  be  used  to  obtain  the  distance-flow  width  relationships,  a  10-meter 
long  well  and  a  180-meter  long  well  both  having  a  0.75  m  radius.  The  location  and  orientation 
of  each  well  are  shown  in  Figure  5.23  and  Figure  5.24.  The  well  in  Figure  5.23  can  be  thought 
of  as  a  section  that  has  been  isolated  using  packers. 


Figure  5.23  - 10  meter  well  location  (modeling  volume  is  200  by  200  by  200  meters) 
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Figure  5.24  - 180  meter  well  location  (modeling  volume  is  200  by  200  by  200  meters) 

In  the  succeeding  pages,  plots  of  the  distance-flow  width  relationships  for  each  fracture  network 
using  each  of  the  two  well  geometries  are  presented.  The  estimates  of  the  flow  dimension  are 
also  included  in  the  plots.  The  label  “original  algorithm”  refers  to  the  method  discussed  in 
Section  5.3.1  where  equivalent  pipes  are  created  using  pairs  of  intersections.  The  label 
“individual  intersections”  refers  to  the  approach  in  Section  5.3.2  where  equivalent  pipes  are 
based  on  the  lengths  of  single  intersections. 


Distance-Flow  Width  Relationships  with  Fitted  Lines 


Figure  5.25  -  Distance-flow  width  relationships  for  fracture  network  simulation  1  using  a  10  meter  long  well 
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Distance-Flow  Width  Relationships  with  Fitted  Lines 
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Figure  5.26  -  Distance-flow  width  relationships  for  fracture  network  simulation  2  using  a  10  meter  long  well 


Distance-Flow  Width  Relationships  with  Fitted  Lines 


Radial  Distance  (m) 

Figure  5.27  -  Distance-flow  width  relationships  for  fracture  network  simulation  3  using  a  10  meter  long  well 
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Distance-Flow  Width  Relationships  with  Fitted  Lines 
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Figure  5.28  -  Distance-flow  width  relationships  for  fracture  network  simulation  4  using  a  10  meter  long  well 


Distance-Flow  Width  Relationships  with  Fitted  Lines 


Radial  Distance  (m) 

Figure  5.29  -  Distance-flow  width  relationships  for  fracture  network  simulation  5  using  a  10  meter  long  well 
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Distance-Flow  Width  Relationships  with  Fitted  Lines 
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Figure  5.30  -  Distance-flow  width  relationships  for  fracture  network  simulation  1  using  a  180  meter  long  well 


Distance-Flow  Width  Relationships  with  Fitted  Lines 
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Figure  5.31  -  Distance-flow  width  relationships  for  fracture  network  simulation  2  using  a  180  meter  long  well 
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Distance-Flow  Width  Relationships  with  Fitted  Lines 
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Figure  5.32  -  Distance-flow  width  relationships  for  fracture  network  simulation  3  using  a  180  meter  long  well 


Distance-Flow  Width  Relationships  with  Fitted  Lines 
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Figure  5.33  -  Distance-flow  width  relationships  for  fracture  network  simulation  4  using  a  180  meter  long  well 
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Distance-Flow  Width  Relationships  with  Fitted  Lines 


Figure  5.34  -  Distance-flow  width  relationships  for  fracture  network  simulation  5  using  a  180  meter  long  well 

The  results  shown  in  Figure  5.25  to  Figure  5.34  all  suggest  that  the  fracture  network  is  made  up 
of  two  regions  from  the  standpoint  of  flow  dimension.  There  is  an  inner  region  where  the  flow 
width  varies  from  increasing  to  slightly  decreasing  with  radial  distance.  In  the  outer  region,  the 
flow  width  always  decreases  with  radial  distance.  The  figures  also  show  that  the  individual 
intersection  method  almost  always  gives  a  flow  width  that  is  greater  than  the  original  method. 
This  can  be  expected  since  the  original  method  uses  the  average  of  the  projected  lengths  of  two 
intersections  (see  Figure  5.16).  However,  at  certain  points  on  the  plots  the  flow  width  from  the 
original  algorithm  overtakes  that  of  the  individual  intersection  algorithm.  For  the  most  part  of 
the  outer  region  (or  after  the  flow  width  from  the  original  method  overtakes  that  of  the  individual 
intersection  method),  the  original  method  gives  a  larger  flow  width  than  the  individual 
intersection  algorithm.  A  series  of  intersections  that  decrease  in  length  with  distance  from  the 
well  like  that  shown  in  Figure  5.35  can  help  understand  this  observation.  At  a  distance  dj  +  d2, 
the  original  method  would  give  a  flow  width  of  xMLi  +  Li)  (let  us  assume  that  the  path  is 
perpendicular  to  the  intersections  for  simplicity).  The  individual  intersection  algorithm  would 
give  a  flow  width  of  L2,  which  is  smaller  than  ViiLi  +  Li).  The  same  can  be  said  about  the  flow 
width  at  a  distance  di  +  efc  +  because  the  intersection  length  is  decreasing  with  distance  from 
the  well.  Note  that  the  very  important  restriction  in  this  explanation  is  that  the  path  is 
perpendicular  to  the  intersections.  If  not,  then  the  intersection  lengths  can  be  reduced 
substantially  when  using  the  original  method  and  even  the  average  of  these  reduced  intersection 
lengths  may  not  be  enough  to  surpass  the  length  of  one  of  the  intersections.  So,  the  fact  that  the 
flow  width  using  the  original  method  exceeds  that  of  the  individual  intersection  method  in  the 
outer  region  may  also  suggest  how  the  paths  and  the  fracture  intersections  along  those  paths  are 
oriented  relative  to  each  other. 
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Figure  5.35  -  Intersection  lengths  decreasing  with  distance  from  the  well 

For  the  inner  region,  the  original  algorithm  always  gives  a  higher  value  of  flow  dimension 
compared  to  the  individual  intersection  method.  Both  the  original  and  individual  intersection 
algorithms  gave  larger  flow  dimension  values  for  the  inner  region  when  the  short  (10m)  well  was 
used  than  when  the  long  (180m)  well  was  used.  One  can  imagine,  however,  that  for  fracture 
networks,  using  a  shorter  well  length  may  not  always  lead  to  a  larger  flow  dimension  since  a 
shorter  well  may  access  a  lesser  number  of  fractures  that  may,  in  turn,  connect  to  less  extensive 
networks. 

In  the  outer  region,  there  is  no  consistent  difference  between  the  flow  dimension  values  given  by 
the  two  approaches.  The  original  algorithm  may  give  a  higher  flow  dimension  compared  to  the 
individual  intersection  method  in  one  network  and  then  give  a  lower  value  in  another  network. 
Results  for  the  outer  region  were  also  inconsistent  when  comparing  the  short  and  long  well  flow 
dimension  values  in  the  sense  that  short  well  flow  dimension  values  were  not  always  larger  than 
long  well  flow  dimensions.  However,  radial  distance-flow  width  relationships  for  the  outer 
region  consistently  show  the  reduction  of  flow  width  with  radial  distance. 

The  results  for  the  cubical  element  approximation  are  presented  next.  The  degree  of  refinement 
for  this  approach  is  described  in  terms  of  the  number  of  cubical  elements  the  entire  modeling 
volume  is  divided  into  or  the  number  of  boxes  per  edge.  Six  levels  of  coarseness  for  dividing  the 
modeling  volume  are  used  in  determining  the  distance-flow  width  relationships:  1000,  200,  50, 
20,  10  and  5  boxes  per  edge.  For  each  network  and  for  each  of  the  two  well  geometries  (10  and 
180  meter  long  wells),  two  flow  dimension  values  are  computed  representing  the  flow  dimension 
values  of  the  inner  region  and  outer  region  of  the  fracture  network.  The  values  of  the  inner  and 
outer  flow  dimensions  versus  the  level  of  coarseness  (number  of  boxes  per  edge)  are  given  in 
Table  5.2  and  Table  5.3.  The  plots  of  the  distance-flow  width  relationships  where  these  values 
were  derived  can  be  found  in  the  Appendix. 
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Short  Well 
Boxes/Edge 

Network  1 

Network  2 

Networks 

Network  4 

Network  5 

Winner 

Wouter 

Winner 

Wouter 

Winner 

Wouter 

Winner 

Wouter 

Winner 

Wouter 

1000 

1.413 

-1.311 

0.935 

-2.318 

1.833 

-1.531 

1.478 

-0.969 

1.573 

-1.063 

200 

1.434 

-1.244 

0.935 

-2.170 

1.788 

-1.307 

1.406 

-1.238 

1.570 

-1.235 

50 

1.455 

-1.207 

0.879 

-1.768 

1.664 

-1.382 

1.682 

-1.420 

1.572 

-1.403 

20 

1.455 

-1.207 

1.512 

-2.231 

1.192 

-1.250 

1.359 

-1.708 

1.735 

-1.877 

10 

1.455 

-1.207 

0.482 

-1.579 

1.591 

-1.170 

0.929 

-1.636 

1.843 

-1.589 

5 

1.455 

-1.207 

0.172 

-0.626 

1.143 

-0.484 

0.117 

-1.152 

0.605 

-1.770 

Table  5.2  -  Flow  dimension  values  for  the  inner  and  outer  regions  using  the  cubical  element  approach  for 
each  of  the  networks  and  for  each  level  of  coarseness.  The  short  (10  m)  well  is  used  here 


Long  Well 

Boxes/Edge 

Network  1 

Network  2 

Networks 

Network  4 

Network  5 

Winner 

Winner 

Wouter 

Wouter 

Winner 

Wouter 

Winner 

Wouter 

1000 

1.827 

S3BI1! 

0.865 

-2.123 

0.772 

-2.304 

2.616 

-3.610 

2.113 

-1.928 

200 

1.768 

0.748 

-2.140 

0.889 

-2.211 

2.653 

-3.552 

2.126 

-1.861 

50 

1.797 

151111 

0.677 

-2.080 

0.825 

-2.041 

2.518 

-3.780 

2.083 

-1.918 

20 

1.658 

1.366 

-1.503 

1.046 

-1.855 

2.223 

-3.308 

2.264 

-1.915 

10 

1.673 

2.605 

-1.703 

1.042 

-1.415 

2.161 

-2.577 

1.694 

-2.038 

5 

1.750 

0.274 

-0.790 

0.341 

-0.061 

2.252 

-3.452 

0.783 

-0.500 

Table  5.3  -  Flow  dimension  values  for  the  inner  and  outer  regions  using  the  cubical  element  approach  for 
each  of  the  networks  and  for  each  level  of  coarseness.  The  long  (180  m)  well  is  used  here 


Based  on  the  results,  one  can  see  the  inconsistency  with  which  the  cubical  element  method 
calculates  the  flow  dimension.  One  would  expect  the  flow  dimension  for  the  longer  well  to  be 
less  than  the  flow  dimension  using  the  short  well  for  the  same  fracture  network,  a  trend  in  the 
simulated  fracture  networks  that  has  been  observed  in  the  results  given  by  the  original  and 
individual  intersection  approaches.  However,  Table  5.2  and  Table  5.3  show  that  this  is  not 
always  the  case.  Another  noticeable  characteristic  of  the  distance-flow  width  relationships  using 
the  cubical  element  (see  plots  in  the  Appendix)  method  that  is  different  from  the  two  other 
methods  presented  earlier  is  that  the  flow  width  does  not  increase  or  decrease  in  the  same  steady 
way.  As  a  matter  of  fact,  the  flow  width  is  shown  to  change  abruptly  with  radial  distance.  This 
is  due  to  the  fact  that  the  algorithm  used  to  calculate  the  flow  width  at  a  certain  radial  distance 
for  the  cubical  element  method  is  different  from  those  of  the  two  previous  ones.  In  all  three 
approaches,  an  algorithm  that  calculates  the  paths  from  the  well  into  the  fracture  network  is 
employed.  These  paths,  of  course,  are  made  up  of  the  line  segments  connecting  successive 
fracture  intersections.  After  this  step,  the  distances  to  each  intersection  along  these  paths  are 
determined.  The  pieces  of  information  are  then  stored  as  pairs  of  data:  the  length  of  the 
intersection  and  the  radial  distance  to  the  intersection.  The  distance-flow  width  relationships  are 
then  derived  from  these  data  pairs.  It  is  at  this  stage  that  the  cubical  element  method  differs  from 
the  other  two  approaches.  The  cubical  element  approach  determines  the  total  flow  width  at  a 
certain  interval  of  radial  distance  and  not  beyond  that.  For  example,  if  the  user  specifies  an 
interval  of  10  meters,  the  algorithm  calculates  the  flow  width  that  exists  between  say  150  and 
160  meters.  If  the  interval  is  sufficiently  small  there  is  a  chance  that  the  algorithm  finds  very 
small  or  zero  total  flow  width  at  an  interval.  The  two  previous  methods  calculate  the  total  flow 
width  at  an  interval  and  sometimes  beyond  that  if  they  cannot  find  a  flow  path  that  is  sufficiently 
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long.  For  example,  if  along  a  path  the  algorithm  cannot  find  a  value  of  radial  distance  that  falls 
within  the  150  to  160  meter  interval,  it  takes  the  first  value  of  flow  width  along  the  same  path 
that  corresponds  to  a  radial  distance  that  may  already  be  greater  than  160  meters.  This  is  why 
the  relationship  between  the  flow  width  and  the  radial  distance  using  such  an  approach  behaves 
better.  Figure  5.36  to  Figure  5.39  show  plots  of  the  calculated  flow  dimension  versus  the  level 
of  coarseness  (i.e.  how  coarse  the  subdivision  of  the  modeling  volume  is). 
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Flow  Dimension  versus  Level  of  Coarseness  for  Inner  Region 
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Figure  5.36  -  Variation  of  the  estimated  flow  dimension  for  different  levels  of  coarseness  in  the  inner  region 
of  the  simulated  fracture  networks  using  the  short  well  (10  m) 


Flow  Dimension  versus  Level  of  Coarseness  for  Outer  Region 
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Figure  5.37  -  Variation  of  the  estimated  flow  dimension  for  different  levels  of  coarseness  in  the  outer  region 
of  the  simulated  fracture  networks  using  the  short  well  (10  m) 
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Flow  Dimension  versus  Level  of  Coarseness  for  Inner  Region 
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Figure  5.38  -  Variation  of  the  estimated  flow  dimension  for  different  levels  of  coarseness  in  the  inner  region 
of  the  simulated  fracture  networks  using  the  long  well  (180  m) 

Flow  Dimension  versus  Level  of  Coarseness  for  Outer  Region 
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Figure  5.39  -  Variation  of  the  estimated  flow  dimension  for  different  levels  of  coarseness  in  the  outer  region 
of  the  simulated  fracture  networks  using  the  long  well  (180  m) 
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The  six  levels  of  coarseness  in  the  plots  in  Figure  5.36  to  Figure  5.39  are  the  following:  1  - 
1000,  2  -  200,  3  -  50, 4  -  20, 5  -  10,  and  6-5  boxes  per  edge.  The  number  of  boxes  per  edge  is 
the  number  of  cubical  elements  that  can  fit  on  one  edge  of  the  modeling  volume.  So  for  5  boxes 
per  edge,  there  will  be  53  or  125  cubical  elements  in  all. 

The  plot  in  Figure  5.36  shows  that  the  flow  dimension  values  for  the  inner  region  generally 
become  lower  as  the  modeling  volume  division  becomes  coarser.  However,  significant  increases 
in  the  flow  dimension  also  occur  between  the  finest  and  coarsest  divisions.  Figure  5.36  also 
suggests  the  unpredictability  in  the  resulting  flow  dimension  estimate  when  the  number  of  boxes 
per  edge  becomes  less  than  50  (level  3  in  the  plot).  The  flow  dimension  suddenly  rises  or  drops 
after  this  level  of  coarseness.  Figure  5.38  also  shows  a  general  lowering  of  the  flow  dimension 
values  as  the  coarseness  increases  but  not  to  the  same  extent  as  in  Figure  5.36  when  a  shorter 
well  was  used.  Slight  increases  or  decreases  can  also  be  observed  in  Figure  5.38  when  the 
coarseness  exceeds  50  boxes  per  edge. 

Figure  5.37  shows  no  definite  trend  in  the  values  of  the  flow  dimension  as  the  division  becomes 
coarser.  The  flow  dimension  may  end  up  higher  or  lower  at  5  boxes  per  edge  than  it  was  at  1000 
boxes  per  edge.  In  between  these  divisions,  there  is  no  specific  trend.  However,  when  the  length 
of  the  well  is  increased  to  180  meters  (Figure  5.39),  the  flow  dimension  at  5  boxes  per  edge  is 
always  higher  than  the  flow  dimension  at  1000  boxes  per  edge  (very  slightly  for  networks  1  and 
4).  Also,  Figure  5.39  suggests  that  a  division  of  50  boxes  per  edge  can  be  used  and  a  slightly 
larger  increase  or  decrease  in  the  flow  dimension  can  be  expected  after  that  (when  going  from  50 
to  20  boxes  per  edge).  Figure  5.39  also  shows  that  the  approach  behaves  relatively  well  (the 
flow  dimension  does  not  change  much)  between  1000  and  50  boxes  per  edge  for  the  longer  well. 

At  its  present  state,  the  cubical  element  method  is  not  as  good  as  either  the  original  or  the 
individual  intersection  algorithms  in  defining  the  large-scale  behavior  of  the  flow  width  with 
radial  distance.  It  is  too  sensitive  to  sudden  changes  in  the  flow  area  and  this  can  be  blamed 
largely  on  the  algorithm  used  to  calculate  the  flow  width  at  a  given  distance  (as  explained 
previously).  It  also  has  the  inherent  handicap  of  calculating  the  radial  distance  as  the  sum  of  the 
distances  between  centers  of  connected  cubical  elements.  The  real  path  in  the  network  may 
actually  be  more  tortuous  than  that.  There  also  lies  the  problem  of  what  coarseness  to  use  for  a 
fracture  network.  However,  the  capability  of  this  method  in  actually  estimating  the  flow 
dimension  has  to  be  evaluated  using  comparisons  with  results  from  finite  element  simulations. 

Perhaps  another  way  one  could  utilize  the  cubical  elements  is  to  change  how  they  are  used  to 
determine  the  flow  dimension.  One  could  use  them  in  the  manner  shown  in  Figure  5.7.  The 
cubical  elements  are  considered  the  conductive  elements  just  as  the  squares  were  in  Figure  5.7, 
and  one  would  find  out  how  many  of  them  are  intersected  at  certain  distances  from  the  source. 
The  number  of  elements  intersected  versus  the  distance  from  the  source  would  then  give  an 
estimate  of  the  flow  dimension.  The  total  length  of  intersections  in  a  cubical  element  should  also 
be  considered  so  that  some  cubical  elements  are  more  conductive  than  others. 

In  order  to  verify  the  results  of  the  flow  dimension  estimates,  finite  element  flow  simulations 
need  to  be  run  on  the  same  networks.  The  details  of  these  simulations  have  already  been 
presented  in  Section  5.2. 
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Before  the  finite  element  program,  MAFIC,  was  used  to  determine  the  flow  dimensions  for  the 
fracture  networks,  two  test  cases  were  run.  The  fracture  pattern  used  for  the  first  case  was  a 
large  single  fracture  perpendicular  to  the  well  extending  to  the  boundaries  of  the  modeling 
volume.  The  flow  dimension  for  this  case  is  2.0  since  the  flow  area  at  a  certain  distance  is 
proportional  to  the  radial  distance,  r.  The  second  fracture  pattern  used  is  a  single  fracture  that  is 
very  long  in  one  direction  and  narrow  in  the  other.  Such  a  pattern  will  result  in  a  flow  dimension 
of  1.0  since  the  flow  area  does  not  change  with  distance  from  the  well.  Several  nodes  at  various 
distances  from  the  well  were  chosen  in  each  case  and  constant  rate  was  applied  at  the  well.  In 
each  case,  MAFIC  gave  head  data  that  produced  the  anticipated  flow  dimension. 
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Table  5.4  -  Short  well  flow  dimension  values  from  the  three  previous  approaches  (first  three  columns) 
compared  to  those  from  finite  element  simulations  using  nodes  located  not  more  than  10m  from  the  well.  The 
head  values  at  five  different  nodes  are  observed  for  each  network 
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Table  5.5  -  Short  well  flow  dimension  values  from  the  three  previous  approaches  (first  three  columns) 
compared  to  those  from  finite  element  simulations  using  nodes  located  more  than  10m  but  not  more  than  50m 
from  the  well.  The  head  values  at  five  different  nodes  are  observed  for  each  network 


Table  5.4  and  Table  5.5  show  the  flow  dimension  values  from  finite  element  simulations 
compared  with  those  obtained  using  the  original  algorithm  (noriginai,  see  Section  5.3.1),  the 
individual  intersection  approach  (nindmduai,  see  Section  5.3.2)  and  the  cubical  element  approach 
for  1000  boxes  per  edge  (niooo  bxs/edge,  see  Section  5.3.3).  Since  constant  flow  rate  well  tests 
were  simulated,  the  head  values  at  each  timestep  were  observed  at  five  different  nodes  chosen 
from  each  network  (ni  to  n5).  It  can  be  observed  that  the  flow  dimension  values  from  the  finite 
element  flow  simulations  are  always  larger  than  those  predicted  using  any  of  the  three 
approximate  methods.  For  the  short  well  case,  the  approximate  method  that  gives  the  flow 
dimension  values  closest  to  the  finite  element  simulations  is  the  original  algorithm.  The  original 
approach  gives  flow  dimension  values  that  are,  on  the  average,  about  33%  lower  than  the  finite 
element  value  for  nodes  10  meters  from  the  well  or  closer.  The  individual  intersection  approach 
gives  flow  dimension  values  that  are  50%  lower  than  the  finite  element  results  while  the  cubical 
element  method  gives  values  that  are  about  42%  lower.  So  for  the  short  well,  the  original 
approach  provided  the  results  that  were  closest  to  the  finite  element  flow  dimension  values.  It 
has  also  been  observed  that  when  nodes  that  are  located  between  10  and  50  meters  from  the  well 
are  used  for  monitoring  the  head,  the  resulting  flow  dimensions  are  higher  than  when  the  nodes 
are  located  within  10  meters  of  the  well  (compare  Table  5.4  and  Table  5.5).  On  the  average,  the 
flow  dimension  values  derived  from  nodes  in  this  region  are  28%  higher  than  the  flow  dimension 
values  for  nodes  within  10  meters  of  the  well.  Note  that  the  locations  of  the  nodes  chosen  have 
been  spread  out  with  respect  to  radial  and  vertical  distance  from  the  well  in  order  to  make  the 
flow  dimension  results  as  representative  of  the  region  as  possible. 
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Table  5.6  -  Long  well  flow  dimension  values  from  the  three  previous  approaches  (first  three  columns) 
compared  to  those  from  finite  element  simulations  using  nodes  located  not  more  than  10m  from  the  well.  The 
head  values  at  five  different  nodes  are  observed  for  each  network.  Cells  marked  with  “x”  indicate  cases 
where  there  is  not  enough  head  data  to  obtain  a  type-curve  fit 
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Table  5.7  -  Long  well  flow  dimension  values  from  the  three  previous  approaches  (first  three  columns) 
compared  to  those  from  finite  element  simulations  using  nodes  located  more  than  10m  but  not  more  than  50m 
from  the  well.  The  head  values  at  five  different  nodes  are  observed  for  each  network. 


For  the  long  well  case  (Table  5.6  and  Table  5.7),  the  cubical  element  gives  results  closest  to 
those  of  the  finite  element  simulations.  For  nodes  that  are  at  most  10  meters  from  the  well,  the 
cubical  element  approach  gives  flow  dimension  values  that  are  29%  lower  than  finite  element 
simulation  values.  The  original  and  individual  intersection  algorithms  give  flow  dimension 
values  that  are  47%  and  63%  lower  than  the  finite  element  results,  respectively.  As  in  the  short 
well  case,  the  flow  dimension  values  from  the  finite  element  simulations  increase  when  nodes 
located  between  10  and  50  meters  from  the  well  are  used  to  observe  the  head.  On  average,  the 
flow  dimension  values  are  45%  larger  in  this  interval  than  they  are  in  the  10  meter  region. 

The  finite  element  results  almost  always  show  a  lower  flow  dimension  for  the  long  well  case 
compared  to  the  short  well.  This  trend  is  also  reflected  in  both  the  original  algorithm  and  the 
individual  intersection  algorithm.  The  cubical  element  method  is  erratic  in  this  respect  since  the 
consistency  of  the  results  depends  largely  on  how  the  modeling  volume  is  divided.  Overall,  the 
three  approximate  approaches  underestimate  the  connectivity  of  the  fracture  networks  based  on 
the  flow  dimension.  For  the  short  well,  it  is  best  to  use  the  original  approach,  which  defines  the 
flow  width  as  a  function  of  the  average  of  two  consecutive  intersection  lengths.  However,  one 
must  anticipate  that  this  will  be  lower  than  the  finite  element  flow  dimension.  For  the  long  well, 
the  cubical  element  method  performs  well  compared  to  the  two  other  approaches.  However,  this 
approach  did  not  perform  consistently  as  evidenced  by  the  results  for  networks  2  and  3  in  Table 
5.6  and  Table  5.7  where  it  grossly  underestimated  the  finite  element  flow  dimension. 
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6  Summary  and  Conclusions 

The  development  of  a  simple  algorithm  for  calculating  the  fracture  intersections  was  presented 
and  implemented  in  the  fracture  modeling  program  GEOFRAC.  The  program  was  then  used  to 
model  the  fracture  networks  in  the  Boston  Area  in  order  to  study  the  geometry  of  individual 
fracture  intersections.  For  convenience,  the  pertinent  plots  from  Chapter  4  are  repeated  near  the 
end  of  this  section.  The  simulations  showed  that  the  mean  fracture  intersection  length  varies 
between  0.5m  and  0.7m  with  the  mean  equivalent  fracture  radius  equal  to  0.770m  (Figure  4.6). 
The  results  do  not  suggest  a  trend  between  the  mean  intersection  length  and  the  mean  fracture 
area  and  this  also  appears  to  be  true  between  the  standard  deviations  of  intersection  length  and 
fracture  area  (Figure  4.8  and  Figure  4.9).  However,  a  distinct  relationship  between  the 
intersection  length  per  unit  volume  and  the  fracture  intensity  was  observed  (Figure  4.10).  The 
slope  of  the  relationship  increases  with  increasing  fracture  intensity,  P32  (m2/m3).  The  same 
trend  is  observed  between  Ci  (the  number  of  fracture  intersections  per  unit  volume)  and  the 
fracture  intensity,  P32  (Figure  4.11).  The  results  also  show  that  at  fracture  intensities  of  about 
0.005  or  lower,  no  intersections  occur  among  the  simulated  fractures  (Figure  4.10  and  Figure 
4.11).  The  number  of  isolated  fractures  was  also  observed  to  increase  initially  as  the  total 
number  of  fractures  increases,  it  then  plateaus  (Figure  4.12)  and  can  be  expected  to  decrease  as 
the  total  number  of  fractures  increases  further.  The  plots  of  the  relative  frequencies  of 
intersection  lengths  show  that  there  is  a  low  occurrence  of  large  intersections  (>2.0  meters)  and 
that  the  frequency  of  such  intersections  increases  with  the  size  of  the  modeling  volume  (Figure 
4.14  to  Figure  4.18).  The  occurrence  of  intersections  that  are  10  cm  or  shorter  range  from  11% 
of  the  total  number  of  intersections  for  the  largest  modeling  volume  to  13%  for  the  smallest 
modeling  volume.  The  decrease  in  the  relative  frequency  of  the  small  intersections  is 
accompanied  by  an  increase  in  the  relative  frequency  of  the  large  intersections.  As  the  size  of 
the  modeling  volume  increases,  the  relative  frequencies  for  a  specific  value  of  intersection  length 
do  not  change  much  from  one  simulation  to  another.  The  calculated  orientations  of  the 
intersections  between  the  fracture  sets  (A  to  D)  using  mean  their  mean  orientations  predict  that  a 
majority  of  these  intersections  will  have  a  northwest  trend  (Figure  4.27).  The  northwest 
trending  intersections  were  predicted  to  range  from  horizontal  to  almost  vertical  (Figure  4.28). 
Plots  of  the  trend  and  plunge  of  the  simulated  intersections  show  the  same  trend  (Figure  4.24  to 
Figure  4.26)  for  all  modeling  volumes.  The  shapes  of  the  simulated  orientation  distributions 
(Figure  4.24  to  Figure  4.26)  also  agree  with  the  general  shape  given  by  the  calculated 
intersection  orientations  among  the  fracture  sets  (Figure  4.27  to  Figure  4.28). 

The  simulations  show  that  the  algorithm  for  calculating  the  fracture  intersections  gives 
GEOFRAC  the  capability  of  modeling  individual  fracture  intersections.  This  capability  enables 
the  user  to  study  the  length  distribution  of  the  intersections  as  well  as  their  orientation 
distribution.  The  intersection  data  can  also  bo  used  to  assess  the  connectivity  versus  fracture 
intensity  of  the  fracture  sets  (Figure  4.10  and  Figure  4.11). 

Fracture  connectivity  was  also  described  using  flow  behavior  through  the  network  by  means  of  a 
parameter  called  the  well-test  flow  dimension.  Fracture  networks  were  generated  and  the  flow 
was  simulated  in  each  of  them  using  two  well  geometries  (short  and  long).  The  flow  dimension 
values  were  then  estimated  using  the  distance-flow  width  relationships  of  the  fracture  networks. 
Three  approaches  for  the  calculation  of  the  flow  width  were  presented  and  are  enumerated  here 


127 


for  convenience:  1)  The  original  algorithm  derives  the  flow  width  as  a  function  of  the  average  of 
two  consecutive  intersections.  2)  The  individual  intersection  method  assumes  that  the  flow 
width  is  the  length  of  an  individual  intersection.  3)  The  cubical  element  method  subdivides  the 
modeling  volume  into  smaller  boxes  each  of  which  is  assigned  a  flow  width  value  based  on  the 
total  length  of  intersections  whose  midpoints  are  located  within  them.  The  resulting  flow 
dimension  values  were  compared  to  those  from  finite  element  flow  simulations.  In  the 
following,  the  observations  for  the  approximate  methods  are  summarized  first  then  the  results  of 
the  comparison  will  follow.  Results  for  the  cubical  element  method  will  be  discussed  separately 
from  the  original  and  individual  intersection  methods. 

Both  the  original  and  individual  methods  show  that  each  simulated  fracture  network  is  made  up 
of  two  regions.  There  is  an  inner  region  where  the  flow  area  increases  (and  in  some  cases, 
slightly  decreases)  with  radial  distance  and  an  outer  region  where  the  flow  area  decreases  rapidly 
with  radial  distance  (Figure  5.25  to  Figure  5.34,  pages  112-117).  The  original  approach  gave 
larger  flow  dimension  values  compared  to  the  individual  intersection  approach  for  the  inner 
region  (Figure  5.25  to  Figure  5.34).  Higher  flow  dimension  values  for  the  inner  region  were 
also  observed  in  both  these  methods  when  the  short  well  was  used  compared  to  when  the  long 
well  was  used.  In  the  outer  region,  the  approximate  methods  did  not  show  a  consistent 
difference  between  the  two  methods  but  both  consistently  reflect  the  rapid  decrease  in  flow  area 
with  radial  distance  that  occurs  there. 

Unlike  the  two  other  approximate  approaches,  the  cubical  element  method  does  not  consistently 
show  that  using  the  short  well  will  result  in  a  higher  flow  dimension  compared  to  using  the  long 
well  (Table  5.2  and  Table  5.3,  page  119).  One  can  also  see  that  the  flow  width-radial  distance 
relationship  from  the  cubical  element  method  behaves  differently  from  the  other  two  approaches. 
This  behavior  is  due  to  the  way  it  calculates  the  total  flow  width  at  an  interval.  The  flow 
dimension  results  were  presented  versus  the  level  of  coarseness;  a  description  of  how  coarse  the 
modeling  volume  is  subdivided  expressed  as  the  number  of  boxes  per  edge  (Figure  5.36  to 
Figure  5.39,  pages  121-122).  The  results  revealed  that  for  the  inner  region  (for  both  short  and 
long  wells),  the  calculated  flow  dimension  becomes  lower  as  the  model  subdivision  becomes 
coarser.  The  flow  dimension  values  for  the  inner  region  suddenly  rise  or  drop  when  the  number 
of  boxes  per  edge  falls  below  50  for  the  short  well  (Figure  5.36).  The  same  behavior  is  also 
apparent  using  the  long  well  at  the  same  point  although  the  rise  or  drop  is  not  as  sharp  as  in  the 
short  well  (Figure  5.38).  In  both  cases,  the  flow  dimension  for  the  coarsest  subdivision,  5  boxes 
per  edge,  is  always  lower  than  that  of  the  finest  subdivision,  1000  boxes  per  edge  (Figure  5.36 
and  Figure  5.38).  The  flow  dimension  results  for  the  outer  region  using  the  short  well  do  not 
indicate  a  specific  trend  with  the  coarseness  of  the  subdivision  (Figure  5.37).  The  flow 
dimension  at  the  coarsest  subdivision  is  not  always  higher  or  lower  than  the  flow  dimension  at 
the  finest  subdivision.  For  the  long  well,  however,  the  results  show  that  flow  dimension  for  the 
coarsest  subdivision  is  always  higher  than  the  flow  dimension  for  the  finest  subdivision  (Figure 
5.39).  Also,  the  method  appears  to  behave  well  between  1000  and  50  boxes  per  edge  for  the  case 
of  the  long  well  (Figure  5.39). 

The  results  from  the  approximate  approaches  were  compared  to  finite  element  flow  simulation 
results  to  determine  how  each  method  performed  in  estimating  the  flow  dimension.  The  head 
values  at  different  times  were  monitored  at  different  nodes  in  the  fracture  network.  These  head 


128 


data  are  then  plotted  against  type-curves  in  order  to  obtain  the  flow  dimension.  In  the  case  of  the 
short  well,  the  approximate  method  that  gave  flow  dimension  values  closest  to  those  of  finite 
element  flow  simulations  is  the  original  algorithm  (Table  5.4  and  Table  5.5,  page  125).  On  the 
average,  the  original  method  produced  flow  dimension  values  that  were  33%  lower  than  the 
finite  element  values.  The  individual  intersection  and  cubical  element  methods  gave  flow 
dimensions  that  were,  on  the  average,  50%  and  42%  lower  than  the  finite  element  results, 
respectively.  On  the  other  hand,  the  long  well  results  showed  that  among  the  three  approaches, 
the  cubical  element  method  values  came  closest  to  the  finite  element  simulation  flow  dimension 
values  (Table  5.6  and  Table  5.7,  page  126).  Cubical  element  flow  dimension  values  were,  on 
average,  29%  lower  than  the  finite  element  results.  Note,  however,  that  in  two  of  the  fracture 
networks  the  cubical  element  method  gave  very  poor  estimates  of  the  flow  dimension  values 
(Table  5.6  and  Table  5.7). 

The  finite  element  flow  simulations  indicated  that  long  well  flow  dimension  values  were  lower 
than  their  short  well  counterparts  for  the  fracture  networks  used.  This  same  trend  is  evident  in 
the  results  from  both  the  original  and  individual  intersection  algorithms  (Table  5.4  to  Table  5.7). 
The  cubical  element  method  is  not  consistent  in  this  respect.  In  some  cases,  the  long  well  flow 
dimension  is  lower  than  the  short  well  flow  dimension.  In  the  other  cases,  it  is  the  opposite. 

The  results  show  that  there  is  not  a  single  approximate  method  that  performed  the  best  in  each  of 
the  simulated  fracture  networks.  However,  dividing  the  results  into  short  and  long  well  revealed 
that  in  each  case,  one  approximate  method  outperforms  the  other  two.  The  original  method  is 
most  suitable  for  short  wells  and  the  cubical  element  method  for  long  wells.  Common  among 
the  approximate  methods  is  that  they  all  underestimate  the  flow  dimension,  and  therefore  the 
connectivity,  when  compared  to  the  finite  element  simulation  results. 


129 


CiO'm’)  Standard  Deviation  of  Intersection  Length  Mean  Intersection  Length  (m) 


Mean  Intersection  Length  in  each  Simulation 


Simulation  Number 

Figure  4.6 


Mean  Intersection  Length  versus  Mean  Fracture  Area 


1.4  1.8  1.8  2.0  2.2  2.4 


Mean  Fracture  Area 

Figure  4.8 


Standard  Deviation  of  Fracture  Area 


P„  (mVm*) 


Figure  4.9 


Figure  4.10 


C,  vs.  P„ 


Number  ol  Isolated  Fractures  vs.  Total  Number  of  Fractures 


PJJ(mf/m’) 

Figure  4.11 


Total  Number  of  Fractures 

Figure  4.12 
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Histograms  for  10*  ms  Volume 


Histograms  for  12s  m*  Volume 


10  meter  Cube  Simulations  12  meter  Cube  Simulations 


Figure  4.24 

14  meter  Cube  Simulations  15  meter  Cube  Simulations 


Figure  4.25 

20  meter  Cube  Simulations 


Figure  4.26 


Calculated  Intersection  Orientations 
Using  Mean  Fracture  8et  Orientations 


Calculated  Intersection  Orientations 


Figure  4.27  and  Figure  4.28 
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GEOFRAC  Source  Code 


Header  Files 

borehole.h 

*************************************************************** 

GEOFRAC  * 

Copyright  Massachusetts  Institute  of  Technology  1995-1998  * 

Violeta  Ivanova,  Thomas  Meyer;  Herbert  Einstein  * 

* 

Don't  use  or  modify  without  written  permission  * 

(contact  einstein@mit.edu)  * 

*************************************************************** 

#ifndef  _BOREHOLE_H 
# define  _BOREHOLE_H 
#include  <iostream.h> 

#include  <fstream.h> 

#include  <math.h> 

# include  "line.h" 

#include  "point. h" 

#include  "stat.h" 

# include  "polygon.h" 
extern  of stream  out; 

class  Node_frac 

{ 

public ; 

double  X,  Y,  Z; 
double  t; 

Polygon*  fracture; 

Node_frac*  next_frac; 

friend  ostream&  operator«  (ostream&  o,  Node_frac&  nf) 

{ 

o«nf.X«"  "«nf.Y«"  "«nf.Z«"  "«nf.t<<"  "«nf .  fracture- 
>Pole .  theta*  180  .  /  PI-90  . «"  "«nf .  fracture ->Pole  .  theta*180  .  /PI«" 

"«nf .  fracture->dip*180  .  /PI«"  "<<*nf  .  fracture; 

}  ; 

} ; 


//  from  parametric  equation  of  a  line 
//  for  a -line  segment:  0<=  t  <=length 


I/  *  *  *  * 
//  * 

//  * 

//  * 

//  * 

//  * 

//  *' 

II  *  *  *  * 


class  Borehole 

{ 

public : 

Line  log; 

Node_frac*  head_frac; 
int  Nfrac; 
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//  default  constructor 


Borehole  (Lines  L) 

{ 

log  =  L; 
head_f rac  =  0  ; 

Nfrac  =  0; 

}  ; 

void  if__exists_add_intersection  (Polygons  )  ; 
friend  ostreamS  operator«  (ostreamS  ,  Boreholes) ; 
void  print ( ) ; 

Stat  f ind_mean_sd_spacing  (); 

-Borehole  ()  {};  //  default  destructor 

}  ; 

#endif  _B0REH0LE_H 
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box.h 


/ /  ******************************************************************* 

//*  GEOFRAC  *. 

//  *  Copyright  Massachusetts  Institute  of  Technology  1995-1998  * 

//  *  Violeta  Ivanova,  Thomas  Meyer,  Herbert  Einstein  * 

II*.  * 

//  *  Don't  use  or  modify  without  written  permission  * 

//  *  (contact  einstein@mit.edu)  * 

/  /  ******************************************************************* 

#ifndef  _BOX_H 
#define  _BOX_H 
#include  <math.h> 

#include  <iostream.h> 

# include  <fstream.h> 

# include  " polar. h" 

#include  " cartesian. h" 

# include  "point.h" 

#include  "plane. h" 

# include  "polygon.h" 

#def ine  TRUE  1 
ttdefine  FALSE  0 
#define  boolian  int 

//  Class  Box  is  used  to  define  a  subvolume  of  the  modelling  volume  where  the 
//  actual  parameters  of  the  fracture  network  (intensity,  ...)  can  be  computed 
//  Eight  points  define  the  corners  of  the  box.  Corner [0]  to  Corner [3]  define 
//  the  top  of  the  box  and  have  to  be  input  anti-clockwise.  Corner [4]  to 
//  Corner [7]  define  to  bottom  of  the  box  and  have  to  be  input  anti-clockwise 
//  Corner [0]  has  to  be  connected  to  Corner [4],  Corner [1]  to  Corner [5],  aso. . 

class  Box 

{ 

public : 

Point  Corner [8] ; 
double  volume; 

Plane  Pl_045; 

Plane  Pl_051; 

Plane  Pl_156; 

Plane  Pl_l62; 

Plane  Pl_632; 

Plane  Pl_673; 

Plane  Pl_703; 

Plane  Pl_740; 

Plane  Pl_547; 

Plane  Pl__576; 

Plane  Pl_130; 

Plane  Pl_123; 


Box  (void) ;  //Default  constructor 
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Box  (Points  PO,  Points  PI,  Points  P2,  Points  P3,  Points  P4,  Points  P5,  Points 
P6,  Points  P7 ) ;  //  Constructor  with  8  corners 

-Box  ()  {};  //Default  destructor 

int  is_point_inside (Points  P) ; 

boolian  if_box_mark_polygon (Polygons,  double*); 


}  ; 


#endif  _BOX_H 


cartesian. h 


ii  ******************************************************************* 

//  *  GEOFRAC  * 

//  *  Copyright  Massachusetts  Institute  of  Technology  1995-1998  * 

//  *  Violeta  Ivanova,  Thomas  Meyer,  Herbert  Einstein  * 

II*  * 

//  *  Don't  use  or  modify  without  written  permission  * 

//  *  (contact  einstein@mit.edu)  * 

II  ******************************************************************* 

#ifndef  _CARTES I AN_H 
ttdefine  _C ARTES I AN_H 

# include  <math.h> 
ttinclude  <iostream.h> 

#include  <f stream. h> 

#define  UNIT_VECTOR  Cartesian; 

#define  VECTOR  Cartesian 
#def ine  FALSE  0 
#def ine  TRUE  1 
#define  boolian  int 
#include  "polar. h" 


class  Cartesian 
{ 

public: 

double  X; 
double  Y; 
double  Z; 

Cartesian  (void) 

{X=0 . 0 ; 

Y=0 . 0 ; 

Z=0 . 0 ; 

}  ; 

Cartesian  (double  x, double  y, double  z) 
(X  =  x; 

Y  =  y; 

Z  =  z ; 

}  ; 


friend  class  Polar; 

Cartesian  (Polar&  pole) 

{  X=sin (pole .phi) * sin (pole . theta) ; 
Y=sin (pole .phi) *cos (pole . theta) ; 
Z=cos (pole . phi ) ; 


//  NEWLY  ADDED  MEMBER!!  AUG.  17,  2000 
Cartesians  operator/  (Cartesians  c) 

{ 

Cartesian . *temp=new  Cartesian; 
*temp=*this ; 
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temp->X/=c .X; 
temp->Y/=c . Y; 
temp->Z/=c . Z  ; 
return  (*temp); 

}  ; 

//  NEWLY  ADDED  MEMBER!!  OCT.  8,  2000 
//  Overload  the  operator/= 

Cartesian&  operator/= (const  Cartesian  Sv) 

{ 

this->X/=v.X; 
this->Y/=v. Y; 
this->Z/=v. Z; 
return  (*this) ; 

}  ; 

Cartesians  operator  =  (Cartesian  c) 

{X  =  c.X; 

Y  =  c.Y; 

Z  =  c.Z; 
return  (*this); 

} ; 

boolian  operator==  (Cartesians  c) 

{ 

if  (X==C.X  SS  Y==C . Y  SS  Z==c . Z) 
return  (TRUE) ; 
return  (FALSE) ; 

}  ; 

double  operator*  (Cartesians  c)  //  Dot  product 

{double  product  =  X*c ,X+Y*c . Y+Z*c . Z; 
return  product; 

}  ; 


Cartesian  cross  (Cartesians  c)  //  Cross  product:  LEFT  handed  system 

{double  xx  =  Y*c.Z  -  Z*c.Y; 
double  yy  =  Z*c.X  -  X*c.Z; 
double  zz  =  X*c.Y  -  Y*c.X; 

Cartesian*  C  =  new  Cartesian  (xx,  yy,  zz); 
return  *C; 

} ; 


friend  ostreamS  operator«  (ostreamS  o,  Cartesians  c) 
{ 

return  o  <<c.X<<"  "<<c.Y«"  "«c.Z<<endl; 

}  ; 


Polar  convert_to_polar  (); 

Cartesian  local_coordinates  (PolarS) ; 
Cartesian  global_coordinates  (PolarS) ; 


} ; 

#endif  _C ARTE S I AN_H 
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cell.h 


ii  ******************************************************************* 

//  *  GEOFRAC  * 

//  *  Copyright  Massachusetts  Institute  of  Technology  1995^-1998  * 

//  *  Violeta  Ivanova,  Thomas  Meyer,  Herbert  Einstein  * 

/I  *  * 

//  *  Don't  use  or  modify  without  written  permission  * 

//  *  (contact  einstein@mit.edu)  * 

II  ******************************************************************* 


#ifndef  _CELL_H 
#define  _CELL_H 
#include  <iostream.h> 
#include  <f stream. h> 
#include  <math.h> 


class  Cell 

{ 

public : 

Cell*  next_cell; 
double  Z; 
double  value; 
double  GR; 

Cell  (double  z,  double  V.)  { 

Z  =  z; 
value  =  V; 
next_cell  =  0;  }  ; 

Cell  (double  z,  double  V,  double  gamaray)  { 
Z  =  Z  ; 
value  =  V; 

GR  =  gamaray; 
next_cell  =0;  }; 


}  ; 


class  Column 

{ 

public: 
double  X,  Y; 

Cell*  head_cell; 
int  Ncells; 

Column  ()  //  default  constructor 

{ 

head_cell  =  0; 

Ncells  =  0; 

}  ; 
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void  add_cell  (Cell) ; 

friend  ostream&  operator«  (ostream&  ,  Columns) 


} ; 

#endif  _CELL_H 
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circle.h 


ii  ******************************************************************* 

//*  GEOFRAC  * 

//  *  Copyright  Massachusetts  Institute  of  Technology  1995-1998  * 

//  *  Violeta  Ivanova,  Thomas  Meyer,  Herbert  Einstein  * 

//  *  * 
//  *  Don't  use  or  modify  without  written  permission  * 

//  *  (contact  einstein@mit.edu)  * 

II  ******************************************************************* 


#ifndef  _CIRCLE_H 
#def ine  _CIRCLE_H 
# include  <math.h> 
#include  <iostream.h> 
#include  <f stream. h> 
#include  "polar. h" 
ttinclude  "cartesian. h" 
ttinclude  "point. h" 

# include  " plane. h" 

#def ine  TRUE  1 
#define  FALSE  0 
#define  boolian  int 


//  Class  Circle  defines  a  circle  on  a  plane.  It  is  primarily  used  as  a  window 
for 

//  fracture  traces  sampling  in  order  to  infer  the  fracture  size  distribution. 
//  An  object  circle  is  defined  by  its  center  (Point) ,  its  radius  (double) 

//  and  the  supporting  plane  (Plane) . 

class  Circle 

{ 

public: 

double  radius; 

Point  center; 

Plane  support; 


Circle  (void) ;  //Default  constructor 

Circle  (doubles  R,  Points  C,  Planes  Pi);  //  Constructor  with  radius,  center 
and 

//  supporting  plane 

-Circle  ()  {};  //Default  destructor 

int  is_point_inside (Points  P) ; 

}  ; 

#endif  _CIRCLE_H 
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cubic.h 


/ /  ******************************************************************* 
//*  GEOFRAC  * 

//  *  Copyright  Massachusetts  Institute  of  Technology  1995-1998  * 

//  *  Violeta  Ivanova,  Thomas  Meyer,  Herbert  Einstein  * 

//  *  ,  * 
//  *  Don't  use  or  modify  without  written  permission  * 

//  *  (contact  einstein@mit.edu)  * 

/  /  ******************************************************************* 

#ifndef  _CUBIC_H 
#def ine  _CUBIC_H 
#include  <math.h> 

#include  <iostream.h> 

#include  <f stream. h> 

# include  " polar. h" 

#include  "cartesian. h" 
ttinclude  "point. h" 

#def ine  TRUE  1 
# define  FALSE  0 
#define  boolian  int 


//  Class  of  cubic  surface  is  defined  by  equation 

//  z  =  Ax^3  +  BxA2y  +  Cxy/V2  +  DyA3  +  Ex/'2  +  Fxy  +  Gy^2  +  Hx  +  Iy  +J; 

//  This  class  is  used  for  fold  surfaces. 

class  Cubic 

.{ 

public: 

double  A,  B,  C,  D,  E,  F,  G,  H,  I,  J; 

Cubic ( )  //Default  constructor 

{  A=  0 . ;  B=0 . ;  C=0.;  D=0 . ;  E=0.;  F=0.;  G=0.;  H=0.;  1=0.;  J=0.;}; 

Cubic  (double  a,  double  b,  double  c,  double  d,  double  e,  double  f,  double  g, 
double  h,  double  i,  double  j) 

{  A=a;  B=b;  C=c;  D=d;  E=e;  F=f;  G=g;  H=h;  I=i;  J= j ; } ; 

friend  ostream&  operator«  (ostream&  o  ,  Cubic&  c) 

{ 

o  <<c.A<<"  "<<c.B<<"  "<<c.C<<"  "<<c.D<<"  "<<c.E<<"  "<<c.F<<"  "<<c.G«" 
"«c.H<<"  "«c.I«"  "<<c . J<<endl ; 
return  o ; 

}  ; 

Cubic&  operator=  (Cubic  c) 

{ 

A=C.A;  B=C . B ;  C=C.C;  D=C.D;  E=C.E;  F=C.F;  G=C.G;  H=C.H;  I=C.I;  J=C.J; 
return  (*this); 

}  ; 
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-Cubic  ()  {}; 


//Default  destructor 


Cartesian  normal_at_point (Points) ; 
Polar  polar_normal_at_point  (Points) ; 
Polar  strike_dip_at_point  (Points) ; 


}  ; 


#endif  _CUBIC_H 
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line.h 


ii  ******************************************************************* 

//*  GEOFRAC  * 

//  *  Copyright  Massachusetts  Institute  of  Technology  1995-1998  * 

//  *  Violeta  Ivanova,  Thomas  Meyer,  Herbert  Einstein  * 

//  *  * 
//  *  Don't  use  or  modify  without  written  permission  * 

//  *  (contact  einstein@mit.edu)  * 

II  ******************************************************************* 


#ifndef  _LINE_H 
#def ine  _LINE_H 

#include  <iostream.h> 
((include  <f stream. h> 
((include  <math.h> 
#include  " cartesian. h" 
#include  "point. h" 
((include  "plane. h” 


#def ine  TRUE  1 
#def ine  FALSE  0 


//  Class  Line  represents  a  LINE  SEGMENT  between  2  3D  points  Pl(xl,  yl,  zl) 
//  and  P2(x2,  y2,  z2) .  The  line  vector  is  (x2-xl,  y2-yl,  z2-zl)  . 

//  Parametric  equation  is  t= (X-xl) / (x2-xl) = (Y-yl) / (y2-yl) = (Z-zl) / (z2-zl) 

//  for  point  P(X,Y,Z)  on  the  line. 

//  If  t=[0,l]  P  is  on  the  segment  P1P2  (for  t=0,  P=Pl;  for  t=l  P=P2) . 

//  If  t= (-infinity,  +infinity) ,  point  (X,  Y,  Z)  is  on  the  infinite  3D  line. 

class  Line 

{ 

public : 

Point  endl ,  end2 
Cartesian  vector 
double  length; 

Line  (void) 

{ 

endl.X=0.0; 
endl . Y=0 . 0; 
endl . Z=0 . 0 ; 
end2 .X=l . 0; 
end2 . Y=1 . 0; 
end2 . Z=1 . 0 ; 
vector. X  =1.0; 
length  =  0 . ; 

}  ; 

Line  (Points  pi,  Points  p2)  //constructor  from  2  points; 

{ 

endl  =  pi; 
end2  =  p2 ; 


//default  constructor 

//line  segment  from  (0,0,0)  to  (1,1,1) 

vector. Y  =1.0;  vector. Z  =1.0; 
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vector. X  =  end2.X  -  endl.X; 

vector. Y  =  end2.Y  -  endl.Y; 

vector. Z  =  end2.Z  -  endl.Z; 

length  =  sqrt (vector .X*vector .X+vector. Y*vector. Y+vector . Z*vector. Z) ; 
vector .X/=length;  vector .Y/=length;  vector . Z/=length; 

}  ; 

Line  (Points  p,  Cartesians  c,  double  1) 

{  endl.X=p.X;  //  constructor  for  line  trough  point  P 

endl.Y=p.Y;  //  parallel  to  a  vector  c  and  with  length  1 

endl.Z=p.Z; 

double  cl  =  sqrt  (c.X*c.X  +  c.Y*c.Y  +  c.Z*c.Z); 
if  (c.X  ||  c.Y  ||  c.Z) 

{vector .X=c .X/cl ;  vector. Y=c .Y/cl;  vector . Z=c . Z/cl ;}  ; 
end2 .X=endl .X+l*vector .X; 
end2 . Y=endl . Y+l*vector .Y; 
end2 . Z=endl . Z+l*vector . Z; 
length  =  1; 

}  ; 

Line  (double  angle,  double  D,  double  R,  Points  C) ; 

//  Constructor  for  a  2D  line  with  equation 
//  X*cos (angle)  +  Y*sin (angle)  =  D  intersecting 
//  the  circle  with  radius  R  and  center  C 


-Line  ()  {};  //destructor 

boolian  intersect  (Lines  ) ;  //if  a  2D  line  intersects  another  2D  line 
Point  intersection_with_line (Lines  ); 
boolian  is_point_on_line  (Points) ; 

double  angle_with_line  (Lines  L)  //  angle  between  two  lines  in  3D 

{double  angle  =  acos  (vector*L. vector) ; 
return  angle;}; 

boolian  if_intersects_plane  (Planes) ; 

Point  intersection_with_plane  (Planes); 
void  global_coordinates  (PolarS) ; 
void  local_coordinates  (PolarS) ; 
double  shortest_dist_to_point (Points) ; 

Point  intersection_from_point (Points) ; 

//NEWLY  ADDED  MEMBER  JUN  13,  2001 
//  calculates  the  plunge  of  the  line 
double  compute_plunge ( ) ; 

//NEWLY  ADDED  MEMBER  JUN  13,  2001 
//  calculates  the  trend  of  the  line 
double  compute_trend ( ) ; 

//  NEWLY  ADDED  MEMBER .  AUG  18,  2000 

/*bool  is__point_an_endpoint_of_line  (Points);*/ 

//  NEWLY  ADDED  MEMBER.  AUG  18,  2000 
Points  midpt_of_the_line  (); 

friend  ostreamS  operator«  (ostreamS  o  ,  Lines  1) 

{ 

o  «l.endl.X«"  "«l.endl.Y«"  "<<1 .  endl .  Z«endl ; 
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o  «l.end2.X«"  "«l.end2.Y«"  "«1  .end2  .Z«endl; 
o  <<"vector  "«1  ,vector«"  length  "«1 .  length<<endl ; 
return  o; 


void  print ( ) ; 

boolian  operator== (Line&  1) 

{ 

if  ( (endl  ==  l.endl  &&  end2==l .end2) | | (end2==l .endl  &&  endl== 
return  (TRUE) ; 
return  (FALSE) ; 

}  ; 

//  NEWLY  ADDED  OPERATOR  OVERLOAD.  AUG  18,  2000 
/*Line&  operator=  (Line&  1) 

{ 

endl=l . endl ; 
end2=l.end2; 
vector=l .vector; 
length=l . length; 
return  (*this); 

};*/ 


}  ; 


#endif  _LINE_H 


1 . end2 ) ) 
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listline.h 


ii  ******************************************************************* 

GEOFRAC  * 

Copyright  Massachusetts  Institute  of  Technology  1995-1998  * 

Violeta  Ivanova,  Thomas  Meyer,  Herbert  Einstein  * 

* 

Don't  use  or  modify  without  written  permission  * 

(contact  einstein@mit.edu)  * 

**************************************************************** 

#ifndef  _L I STLINE_H 
#def ine  _LISTLINE_H 
#include  <iostream.h> 

#include  <fstream.h> 

# include  <math.h> 

# include  " polygon. h" 

# include  "line.h" 

# include  "stat.h" 
ttinclude  "circle. h" 


class  Node_line 

{ 

public : 

Node_line*  next_line; 
Line*  content; 

) ; 


class  ListLines 

{ 

public: 

Node_line*  head_line; 
int  Nline; 

ListLines  ()  //  default  constructor 

{ 

head_line=0 ; 

Nline  =0; 

}  ; 


// 

★ 

// 

* 

// 

* 

// 

* 

// 

* 

// 

* 

// 

*  *  * 

-ListLines  ()  { } ;  //default  destructor 

void  add_line  (Lines) ; 

friend  ostreamS  operator«  (ostreamS  ,  ListLinesS) ; 
void  print ( ) ; 

//void  add_listline  (ListLines&  ) ; 

Stat  f ind_mean_sd_length  (); 

int  count_traces_0 (Circle&  ); 

int  count_traces_l (Circle&  )  ; 

int  count_traces_2 (Circled  ) ; 

double  find_mean_length_on_jpol (Polygons  ); 
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double  f ind_mean_length_on_circ (Circle&  ) 

//NEWLY  ADDED  FUNCTION  OCT.  8,  2000 
//removes  line  from  the  list 
void  remove_line (Line  &) ; 

}  ; 

#endif  _LISTLINE_H 
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listlistpol.h 


ii  ******************************************************************* 

//*  GEOFRAC  * 

//  *  Copyright  Massachusetts  Institute  of  Technology  1995-1998  * 

//  *  Violeta  Ivanova,  Thomas  Meyer,  Herbert  Einstein  * 

//  *  * 
//  *  Don't  use  or  modify  without  written  permission  * 

//  *  (contact  einstein@mit.edu)  * 

II  ******************************************************************* 


ttifndef  . 
#define 
# include 
#include 
#include 
# include 
# include 
# include 
# include 
# include 
# include 
# include 
# include 
# include 
# include 


LISTLISTPOL_H 
LISTLISTPOL_H 
<iostream.h> 
<f stream. h> 
<math . h> 

" polygon. h" 

" line .h" 

" listline .h" 
"listpol .h" 
"surf ace. h" 

" cubic .h" 
"stat.h" 

" box.h" 
"borehole .h" 
"cell .h" 


class  Node_list 

{ 

public : 

Node_list*  next_list; 
ListPolygons*  content; 
}; 


class  ListListPol 

{ 

public : 

Node_list*  head_list; 
int  Nlist; 

ListListPol  ()  //  default  constructor 

{ 

head_list  =  0; 

Nlist  =  0; 

}  ; 


void  add_listpol (ListPolygons&) ; 
void  name_list(); 

-ListListPol  ()  {};  //  default  destructor 
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}  ; 

#endif  _LISTLISTPOL_H 
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listpol.h 

ii  ******************************************************************* 

//  *  GEOFRAC  * 

//  *  Copyright  Massachusetts  Institute  of  Technology  1995-1998  * 

//  *  Violeta  Ivanova,  Thomas  Meyer,  Herbert  Einstein  * 

//  *  * 
//  *  Don't  use  or  modify  without  written  permission  * 

//  *  (contact  einstein@mit.edu)  * 

II  ******************************************************************* 

#ifndef  _LISTPOL_H 
#def ine  _LISTPOL_H 
#include  <iostream.h> 

# include  <f stream. h> 

# include  <math.h> 

#include  "polygon. h" 

# include  "line.h" 

#include  "listline.h" 

#include  "surf ace. h" 

# include  " cubic. h 11 
#include  "stat.h" 

# include  "box.h" 
ttinclude  "borehole. h" 

#include  "cell.h" 


class  ListListPol; 

class  Node 

{ 

public : 

Node*  next_pol; 
Polygon*  content; 

}  ; 


class  ListPolygons 

{ 

public : 

Node*  head_pol; 
int  Npol,  name_list; 

ListPolygons  ()  //  default  constructor 

{ 

head_pol  =  0; 

Npol  =  0; 
name_list=0 ; 

}  ; 


void  add_polygon  (Polygons) ; 
void  add_polygon_tail  (Polygons) ; 
void  remove_from_list  (Polygons) ; 
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friend  ostreamS  operator«  (ostreamS  ,  ListPolygonsS)  ; 

void  print { ) 

void  center_print ( )  ; 

void  intersect_by_line  (Lines  ) ; 

void  name_pol ( ) ; 

ListPolygons  make_copy ( ) ; 

void  make_listpol_2d  (); 

void  make_listpol_3d ( ) ; 

void  f ind_area_radius_2d  (); 

void  mark_good_shape  (double,  double) ; 

void  mark_good_shape_and_P  (double,  double,  double  ) ; 

double  f ind_mean_area ( ) ; 

double  find_SD_area  (); 

void  add_listpol  (ListPolygonsS  ) ; 

void  fractal_tessellation  (double,  double); 

void  fractal_big_and_small  (double,  double) ;  • 

void  f ractal_similar  (double,  double) ; 

ListLines  traces_on_plane  (Plane&  ) ; 

Stat  find_mean_sd  (double,  double) ; 

Stat  find_mean_sd  (); 

Stat  f ind_mean_sd_strike ( ) ; 

Stat  f ind_mean_sd_dip ( ) ; 

void  translate_2d  (double,  double) ; 

void  mark_parallel_to_strike  (Surface&,  double,  double) ; 
void  mark_orthogonal_to_strike  (Surface&,  double,  double) ; 

void  mar k_by_s trike  (Surfaces,  double,  double,  double,  char,  double,  double) 
void  mark_by_strike  (CubicS,  double,  double,  double,  char,  double,  double) ; 
void  mark_by_dip  (Surfaces,  double,  double,  double) ; 
void  mark_by_dip  (CubicS,  double,  double,  double) ; 
void  cut_by_surface  (Surfaces,  char) ; 

■void  cut_by_plane (Planes,  char,  double); 

-void  cut_between_two_surfaces  (Surfaces,  Surfaces) ; 

void  cut_outside_two_surfaces  (Surfaces,  Surfaces) ; 

double  shortest_distance_from_polygon  (Polygons  ) ; 

boolian  if_zone_mark__polygon  (Polygons,  int,  double*,  double*); 

void  mark_by_zones  (ListPolygonsS  ,  int,  double*  ,  double*) ; 

void  mark_by_box  (BoxS,  double*); 

Borehole  intersections_with_logline  (Lines) ; 

void  ListPolygons  : :  mark_to_surface  (Surfaces  ,  double  ,  char  ) ; 
void  discard_high_porosity  (Column*,  int,  double,  double) ; 
void  discard_shale  (Column*,  int,  double,  double,  double) ; 
void  size_distribution  (int,  int*,  double*,  double); 

ListListPol  split_into_networks ( ) ; 
double  find_c8 (int) ; 

-ListPolygons  0  {};  //  default  destructor 

//NEWLY  ADDED  FUNCTION  OCT.  8,  2000 

//  function  to  create  a  list  of  intersection  lines 

ListLinesS  make_list_of_intersections ( ) ; 


}  ; 


#endif  _LISTPOL_H 
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plane.h 


ii  ******************************************************************* 

//  *  GEOFRAC  * 

//  *  Copyright  Massachusetts  Institute  of  Technology  1995-1998  * 

II*  Violeta  Ivanova,  Thomas  Meyer,  Herbert  Einstein  * 

II*  * 

II  *  Don't  use  or  modify  without  written  permission  * 

//  *  (contact  einstein@mit.edu)  * 

//  ******************************************************************* 

#ifndef  _PLANE_H 
#def ine  _PLANE_H 

#include  "polar. h" 

#include  " cartesian. h" 

#include  "point. h" 

# include  <math.h> 

#include  <iostream.h> 

#def ine  PI  M_PI 

#def ine  Half PI  (M_PI/2) 

#def ine  TwoPI  (M_PI*2) 

class  Circle; 

//  Class  Plane  is  used  for  the  planes  of  tension  and  shear  which  are 
//  generated  according  to  a  spherical  PDF. 

//A  plane  in  3D  is  described  by  the  equation  Ax+By+Cz=D.  This  plane  is 
//  perpendicular  to  vector  (A,  B,  C)  and  passes  through  point  (X,Y,Z) 

//  where  A*X+B*Y+C*Z=D. 


class  Plane 
{ 

public: 

double  A,  B,  C,  D,  strike,  dip; 

Polar  MeanPole; 

Polar  rel_polar,  abs_polar;  //  Normal  vector  in  polar  coordinates 

Cartesian  rel_cart,  abs_cart;  //  Normal  vector  in  cartesian  coord. 

Plane  (void)  //  default  constructor:  xy  plane 

{MeanPole . theta=0 . ;  MeanPole .phi=0 . ; 
rel_polar. theta  =  0.0;  rel_polar .phi  =  0.0; 
abs_polar. theta  =  0.;  abs_polar .phi  =  0.; 
rel_cart.X  =  0.0;  rel_cart.Y  =  0.0;  rel_cart.Z  =  1.0; 

abs_cart .X  =  0.0;  abs_cart . Y  =  0.0;  abs_cart . Z  =  1.0; 

A=0 . ;  B=0 . ;  C=1 . ;  D=0 . ; 
strike  =0.;  dip  =  0.; 

}  ; 

Plane  (double,  double,  double,  double);  //constructor  from  A,  B,  C,  D 
Plane  (Points,  Points,  Points);  //constructor  from  three  points  P,  Q,  R 
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Plane  (Cartesians  ,  Points,  PolarS) ; 

//  abs_cart  is  given  by  vector 
//  N  ( A, B , C ) .  Constructor  from 
/ /  N  and  point  P  (D=A*X+B*Y+C*Z) 

Plane  (PolarS,  PolarS,  Points);  //  MeanPole  is  given  by  first  Polar; 

//  rel_cart  is  given  by  second  Polar; 

//  Point  is  in  absolute  f.o.r. 


Plane  (char,  PolarS,  double  ) ;  //constructor  to  create  plane  according 

//  to  an  orientation  distribution  (char) 

Cartesian  f ind_binormal ( ) ;  //  Calculates  a  vector  which  is 

//  perpendicular  both  to  the  strike  and 
//  dip  of  the  plane  and  points  upward. 

int  is_pOint_front_behind( Points) ; 

Circle  circle_on_horizontal ( ) ; 

Circle  circle_on_vertical ( ) ; 

-Plane  (void)  {};  //Default  destructor 

friend  ostreamS  operator<<  (ostreamS,  Planes) ; 

Planes  operator=  (Plane  p) 

{ 

A  =  p . A;  B  =  p.B;  C  =  p.C;  D  =  p.D; 
abs_cart  =  p.abs_cart;  abs_polar  =  p.abs_polar; 
rel_cart  =  p.rel_cart;  rel_polar  =  p.rel_polar; 

MeanPole  =  p. MeanPole;  strike  =  p. strike;  dip  =  p.dip; 
return  (*this) ; 

}  ; 

}  ; 


# end if  _PLANE_H 
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point.h 


ii  ******************************************************************* 

//  *  G  E  0  F  R  A  C  * 

//  *  Copyright  Massachusetts  Institute  of  Technology  1995-1998  * 

//  *  Violeta  Ivanova,  Thomas  Meyer,  Herbert  Einstein  * 

//  *  * 
//  *  Don't  use  or  modify  without  written  permission  * 

//  *  (contact  eihstein@mit.edu)  * 

I/  ******************************************************************* 

#ifndef  _POINT_H 
#def ine  _POINT_H 
# include  <math.h> 

♦include  <iostream.h> 

♦include  <fstream.h> 

♦include  " cartes ian.h" 

♦define  TRUE  1 
♦define  FALSE  0 
♦define  boolian  int 
♦define  PI  M_PI 
♦define  Half PI  (M_PI/2) 

♦define  TwoPI  (M_PI*2) 
extern  double  Datum; 

class  Volume; 


class  Point:  public  Cartesian 

{ 

public : 

Point*  next; 

Point  (void)  //default  constructor 

{ 

X=0 . 0 ; 

Y=0 . 0 ; 

Z=0 . 0 ; 
next  =  0 ; 

}  ; 

Point  (double  x,  double  y,  double  z)  //constructor  for  3d  point 

{ 

X=X;  Y=y ;  Z=z; 

if  (X  <=0.000001  &&  X>=-0. 000001) 

X=0  .  ; 

if  (Y  <=0.000001  &&  Y>=-0. 000001) 

Y=0  .  ; 

if  (Z  <=0.000001  &&  Z>=-0. 000001) 

Z=0 .  ; 
next  =  0 ; 

}  ; 

-Point  0  {};  //  default  destructor 


167 


//Point  (Volumes  v)  ; 


//  Constructor  for  a  random  point 
//  in  the  modeling  volumevolume 

Points  operator=  (Point  p) 

{ 

X  =  p.X; 

Y  =  p.Y; 

Z  =  p.Z; 
return  (*this); 

} ; 

boolian  operator== (Points  p) 

{ 

if  (X  ==  p.X  SS  Y  ==  p.Y  SS  Z  ==  p.Z) 
return  (TRUE) ; 
return  (FALSE) ; 

}?  ' 

void  operator+  (Cartesians  c)  //  Addition  of  a  vector:  translation 

(X+=C.X;  Y+=C . Y;  Z+=c.Z; 
return; 

}  ; 

void  operator-  (Cartesians  c) 

{X-=C .X;  Y-=c . Y;  Z-=c.Z; 
return; 

}; 


friend  ostreamS  operator«  (ostreamS  o  ,  Points  p) 
{ 

o  «p.X<<"  " «p . Y<< "  "<<p.Z+Datum«endl; 
return  o; 

) ; 

void  print ( ) ; 

double  triple__product (Points,  Points,  Points); 
double  give_z ( ) ; 

} ; 


#endif  _POINT„H 


//  Substruction  of  a  vector: 
//  back  translation 
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polar.h 


ii  ******************************************************************* 

//  *  G  E  0  F  R  A  C  * 

//  *  Copyright  Massachusetts  Institute  of  Technology  1995-1998  * 

//  *  Violeta  Ivanova,  Thomas  Meyer,  Herbert  Einstein  * 

//  *  * 
//  *  Don't  use  or  modify  without  written  permission  * 

//  *  (contact  einstein&mit . edu)  * 

II  ******************************************************************* 

#ifndef  _POLAR_H 
ttdefine  _POLAR_H 

#def ine  PI  M_PI 
ttdefine  Half PI  (M_PI/2) 

#def ine  TwoPI  (M_PI*2) 

#include  <iostream.h> 

#include  <fstream.h> 

#def ine  FALSE  0 
#def ine  TRUE  1 
ttdefine  boolian  int 

class  Cartesian; 


class  Polar 

{ 

public: 

double  theta,  phi; 

Polar  (void)  //  Default  constructor 

{theta=0.0; 
phi=0.0; 

}; 

Polar  (double  anglel,  double  angle2)  //  Constructor  from  two  angles 
{ theta=anglel ; 
phi=angle2 ; 

}  ; 


boolian  operator==  (Polar&  p) 

{ 

if  (theta  ==  p. theta  &&  phi  ==  p.phi) 
return  TRUE; 
return  FALSE; 

}  ; 


friend  ostream&  operator«  (ostream&  o  , Polar&  p) 
{  return  o  «  p.  theta  «"  "«  p ,phi«endl ; }  ; 

Polar&  operator=  (Polar  p) 

{ 

theta  =  p. theta; 
phi  =  p . phi ; 
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return  (*this); 

}  ; 

-Polar  (void)  {};  //  Default  destructor 

Cartesian  convert_to_cartesian  (); 

}  ; 


# end if  _POLAR_H 
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polygon.h 


ii  ******************************************************************* 

//*  GEOFRAC  * 

//  *  Copyright  Massachusetts  Institute  of  Technology  1995-1998  * 

//  *  Violeta  Ivanova,  Thomas  Meyer,  Herbert  Einstein  * 

//  *  * 
//  *  Don't  use  or  modify  without  written  permission  * 

//  *  (contact  einstein@mit.edu)  * 

II  ******************************************************************* 

#ifndef  _POLYGON_H 
#def ine  _POLYGON_H 

ttinclude  <iostream.h> 

# include  <f stream. h> 

# include  <math.h> 

# include  " point. h" 

#include  " line.h" 

#include  "plane. h" 

# include  "volume.h" 

#include  "surf ace. h" 
ttinclude  "cell.h" 

/*#include  " initial . C" */ 

#define  boolian  int 
idefine  TRUE  1 
#def ine  FALSE  0 


class  Polygon 

{ 

public  : 

Polar  setPole; 

Polar  Pole; 
double  strike,  dip; 

Point*  head; 

int  noP,  name,  name_list; 

Point  center; 
double  radius,  area; 

Polygon  ()  {  //  Default  constructor 

setPole.phi  =0.;  setPole . theta=0 . ; 

Pole . theta=0 . ;  Pole.phi=0.; 
head=0;  noP=0;  name=0;  name_list=0; 
strike  =0.;  dip  =0.; 

center. X  =  0.;  center. Y  =  0.  ;  center. Z  =0 .  ; 
radius  =0.;  area  =  0.;}; 

Polygon  (Plane&) ;  //  Constructor  for  polygon  parallel  to 

//  a  plane 

friend  ostream&  operator«  (ostream&  o  ,  Polygons  pol) 

{ 

Point*  marker  =  pol. head;  int  i; 


//  in  global  f.o.r 
//  in  global  f.o.r. 
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for  ( i  =  0 ;  i  <  pol.noP;  ++i) 

{o  <<  (*marker); 
marker  =  marker  ->  next; 

}; 

//  o«pol.area«"  "«pol .  radius« "  "<<pol .center; 

.  return  o; 

} ; 


void  operator+  (Cartesian  S)  ; 
void  operator-  (Cartesian  S) ; 


boolian  is_it_member  (Points  )  ; 
void  add_point  (Points) ; 
void  f ind_area_radius_2d  (); 
void  area_radius_3d  (); 
void  find_center  (); 
double  find_max_coord(int) ; 
double  find_min_coord(int) ; 
void  make_polygon_2d  ( ) ; 
void  make_polygon_3d  (); 
void  sort _points_2d  ( ) ; 
void  print ( ) ; 

void  add_points_on_surface  (Planes,  Surfaces  ,  int,  double  Zm) ; 
boolian  if_good_shape  (double,  double); 
double  minR_inscribe  ( ) ; 

int  how_line_intersects  (Lines) ;  //  in  2d 

boolian  if_line_intersects (Lines  );  //  in  2d 

Polygon  divide_by_line  (Lines) ;  //  in  2d 

double  f ind_elongation  (); 
boolian  if_intersects_plane (Planes  ); 

Line  intersection_with_plane  (Planes  ); 
void  translate_2d  (double,  double) ; 

boolian  mark_parallel_to_strike  (double,  double,  double) ; 
boolian  mark_orthogonal_to_strike  (double,  double,  double) ; 
boolian  mark_by_dip  (double,  double,  double) ; 
void  rotate_by_strike  (double) ; 
void  rotate_by_dip  (double) ; 
int  above_or_below_surface  (Surfaces  ); 
void  cut_by_surface  (Surfaces,  char) ; 
void  cut_by_plane ( Planes ,  char) ; 
double  distance_from_point  (Points  ) ; 
double  distance_from_polygon  (Polygons  ); 
boolian  if_3d_line_intersects  (Lines  ) ; 

Point  intersection_with_line  (Lines) ; 
boolian  if_polygon_intersects  (Polygons  ); 
boolian  if_front_of_polygon  (Polygons  ) ; 
double  find_average_porosity  (Columns) ; 
double  f ind_average_GR  (Columns  C) ; 
boolian  mark_by_porosity  (Column*,  int,  double,  double) ; 
boolian  mark_by_porosity_and_GR  (Column*,  int,  double,  double,  double); 
int  find_closest_column  (Column*  ,  int) ; 
void  include_in_size_pdf  (int,  int*,  double*,  double); 
void  create_test_polygon ( ) ; 


//  in  3d 
//  in  3d 
//  in  3d 
//  in  3d 


//  Translation 
//  Translation  back 


//  for  polygon  in  2d 
//  for  3d  polygon 
//  for  3d  polygon 


//  for  polygon  in  2d 
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//  NEWLY  ADDED  FUNCTION.  AUG  18,  2000 

Lines  line_of_intersection_with_polygon{ Polygons) 

-Polygon  ()  {}; 

}  ; 

#endif  _POLYGON_H 
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stat.h 


//  ******************************************************************* 
//*  GEOFRAC  * 

//  *  Copyright  Massachusetts  Institute  of  Technology  1995-1998  * 

//  *  Violeta  Ivanova,  Thomas  Meyer,  Herbert  Einstein  * 

//  *  * 
//  *  Don't  use  or  modify  without  written  permission  '  * 

//  *  (contact  einstein@mit.edu)  * 

/  /  ******************************************************************* 

#ifndef  _STAT_H 
#def ine  _STAT_H 
ttinclude  <iostream.h> 
ttinclude  <f stream. h> 

#include  <math.h> 


class  Stat  { 

public : 

double  Mean; 
double  SD; 
double  total; 

Stat  () 

{  Mean  =  0 . ;  SD  =0 . ;  total  =  0 . ; } ; 

Stat  (double  M,  double  sd,  double  t) 
{ 

Mean  =  M; 

Sb  =  sd; 
total  =  t; 

} ; 


friend  ostream&  operator«  (ostream&  o  ,  Stat  s) 

{ 

o  «s.Mean«"  "«s.SD<<"  "  «s  .  total  ; 
return  o; 

}  ; 

} ; 


#endif  J.STAT_H 
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surface.h 


ii  ******************************************************************* 

//  *  GEOFRAC  * 

//  *  Copyright  Massachusetts  Institute  of  Technology  1995-1998  * 

//  *  Violeta  Ivanova,  Thomas  Meyer,  Herbert  Einstein  * 

//  *  * 
//  *  Don't  use  or  modify  without  written  permission  * 

//  *  (contact  einstein@mit.edu)  * 

II  ******************************************************************* 

#ifndef  _SURFACE_H 
#def ine  _SURFACE_H 
# include  <math.h> 

#include  <iostream.h> 

#include  <fstream.h> 
ttinclude  "polar. h" 

#include  "cartesian. h“ 

#include  "point. h" 

# include  " 1 ine . h " 

#def ine  TRUE  1 
#define  FALSE  0 
#define  boolian  int 

class  Line; 

//  Class  of  surface  is  defined  by  quadratic  equation 
//  z  =  AxA2  +  Bxy  +  CyA2  +  Dx  +  Ey  +  F 

//  This  class  is  used  for  topographic  surface  and  for  internal 
//  surfaces  for  example  shale  layers 

class  Surface 

{ 

public: 

double  A,  B,  C,  D,  E,  F; 

Surface ()  //Default  constructor 

{  A=0 . ;  B=0 . ;  C=0.;  D=0.;  E=0 . ;  F=0 . ; } ; 

Surface  (double  a,  double  b,  double  c,  double  d,  double  e,  double  f) 

{  A=a;  B=b;  C=c;  D=d;  E=e;  F=f ; } ; 

friend  ostream&  operator«  (ostream&  o  ,  Surfaced  s) 

{ 

o  «s.A«"  "«s.B«"  "«s.C«"  "«s.D«"  "«s.E«"  "«s.F«endl; 
return  o; 

}  ; 

Surfaces  operator=  (Surface  s) 

{  . 

A=s.A;  B=s.B;  C=S.C;  D=S.D;  E=S.E;  F=s.F; 
return  (*this) ; 

}  ; 
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-Surface  ( )  { }  ; 


//Default  destructor 


boolian  is_point_on_surface (Points) ; 
boolian  is_line_on_surface  (Lines) ; 

Cartesian  normal_at_point (Points) ; 

Polar  polar_normal_at_point  (Points) ; 
double  f ind_Z_on_surface  (double,  double) ; 

Polar  strike_dip_at__point  (Points)  ; 

double  f ind_enclosed_volume  (double,  double) ; 

double  Zmax_over_XY (double,  double); 

int  is_point_above_below  (Points); 

int  how_line_intersect  (Lines  L) ; 

Point  intersection_by_line  (Lines) ; 

//  More  functions  to  be  created  ;  for  tangent  plane, 

}  ; 


#endif  _SURFACE_H 


etc 
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volume.h 


ii  ******************************************************************* 

//*  GEOFRAC  * 

//  *  Copyright  Massachusetts  Institute  of  Technology  1995-1998  * 

//  *  Violeta  Ivanova,  Thomas  Meyer,  Herbert  Einstein  * 

//  *  * 
//  *  Don't  use  or  modify  without  written  permission  * 

//  *  (contact  einstein@mit.edu)  * 

II  ******************************************************************* 


#ifndef  _VOLUME_H 
ttdefine  _VOLUME_H 
#include  <math.h> 

# include  <iostream.h> 
#include  <f stream. h> 
#include  "polar. h" 
#include  "cartesian. h" 
# include  "point.h" 

# include  " surf ace. h" 


# define  TRUE  1 
#define  FALSE  0 
#define  boolian  int 


//  Class  Volume  is  used  for  calculation  of  the  modeling  volume  for  fracture 
//  sets  enclosed  between  the  topographic  surface  and  five  planes  (horizontal 
//  and  four  vertical) .  The  horizontal  bottom  plane  at  z=0;  The 
//  vertical  planes  are  at  x=Xm,  x=-Xm,  y=Ym,  and  y=-Ym.  The  origin  (0,0,0) 

//  of  the  coordinate  system  is  set  to  to  the  center  of  the  bottom  plane. 

//  The  four  points  P[i]  are  the  points  in  the  corners  of  the  volume  on 
//  the  top  surface. 

class  Surface; 

class  Volume 

.{ 

public : 

Point  P [4] ; 
double  volume; 

Surface  top; 
double  Zmax; 

Volume  (Surfaces  ground) ;  //  Constructor 

-Volume  ()  {};  //Default  destructor 


friend  ostreams  operator«  (ostreamS  o,  Volumes  v) 

{ 

int  i; 

for  (i=0;  i<4;  ++i) 
o  <<  v.Pfi] ; 
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o  << "volume:  "<<v. volume«"  Zmax:  "«v. Zmax«endl ; 
o  <<"top  surface:  "«v.  top«endl  ; 

}  ; 

Point  random_point ( )  ; 

boolian  is_point_inside (Points) ; 

double  corner_min_z ( ) ; 

} ; 


#endif  _VOLUME_H 


178 


C  Files 


borehole.C 

ii  ******************************************************************* 

//*  GEOFRAC  * 

//  *  Copyright  Massachusetts  Institute  of  Technology  1995-1998  * 

//  *  Violeta  Ivanova,  Thomas  Meyer,  Herbert  Einstein  * 

//  *  * 
//  *  Don't  use  or  modify  without  written  permission  * 

//  *  (contact  einstein@mit.edu)  * 

II  ******************************************************************* 

#include  " borehole. h" 
ttinclude  "listpol.h" 

# include  "polygon. h" 
ttinclude  "stat.h" 

#include  <math.h> 
ttinclude  <iostream.h> 

ttdefine  PI  M_PI 
ttdefine  Half PI  (M_PI/2) 
ttdefine  TwoPI  (M_PI*2) 
extern  of stream  out; 

ostreams  operator«  (ostream&  o,  Boreholes  bh) 

{ 


o<<"Logline  "«endl«bh. log«"N  intersections:  "<<bh.Nfrac«endl«endl ; 
int  i  ; 

Node_frac*  current  =  bh.head_frac; 

o«" Intersection  with  borehole  "«endl«"Number-X-Y-Z-t-STRIKE-AZIMUTH-DIP- 
AREA-RADIUS-Xc-Yc-Zc "  «endl«endl  ; 

for  (i=0;  i<bh.Nfrac;  ++i) 

{o«i  +  l«"  "«*current; 
current  =  current->next_frac; } ; 

o«endl ; 
return  o ; 


} ; 


//  Procedure  to  add  the  intersection  of  a  log  line  with  a  fracture  (Polygon) 
//  to  the  list  of  intersections  in  a  Borehole,  the  function  first  checks 
//  if  the  line  and  the  polygon  intersect  at  all. 


void  Borehole  : :  if_exists_add_intersection  (Polygons  pol) 

{ 

if  (pol . if_3d_line_intersects  (log)) 

{ 

Point  P  =  pol . intersection_with_line  (log); 
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Node_frac*  new_nf  =  new  Node_frac; 

new_nf->X  =  P.X;  new_nf->Y  =  P.Y;  new_nf->Z  =  P.Z; 

new_nf ->f racture  =  &pol; 


if  (log. vector . Z) 

new_nf->t  =  (new_nf->Z  -  log.endl.Z)  /  log. vector . Z; 
else  if  (log. vector .Y) 

new_nf->t  =  (new_nf->Y  -  log.endl.Y)  /  log. vector .Y; 

else 

new_nf->t  =  (new_nf->X  -  log.endl.X)  /  log. vector .X; 

if  ( INfrac) 

{ 

head_frac  =  new_nf; 
new_nf  ->next_frac  =  0; 

} 

else  if  (head_frac->t  >=  new_nf->t) 

{ 

new_nf->next_frac  =  head_frac; 
head_frac  =  new_nf;} 

else 

{ 

Node_frac*  current  =  head_frac; 

while  (current->next_frac  &&  (current->next_frac->t  <  new_nf->t) ) 
current  =  current->next_frac; 

new_nf->next_frac  =  cur rent ->next_frac; 
current->next_frac  =  new_nf; 

}  ; 

Nfrac++; 

} ; 

return; 

}  ; 


//  Procedure  to  find  the  intersections  of  a  log  line  with  a  list  of 
//  polygon- fractures .  Returns  an  ordered  log,  i.e.  the  intersections  with 
//  polygons  form  endl  to  end2  of  the  given  line. 

Borehole  ListPolygons  ; :  intersections_with_logline  (Line&  L) 

{ 

Node*  current  =  head_pol; 
int  i  =  Npol ; 

Borehole*  new_bh  =  new  Borehole  (L) ; 
for  (i=0;  i<Npol;  ++i) 

{new_bh  ->  if_exists_add_intersection  ( *current->content) ; 
current  =  current->next_pol; } ; 
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return  *new_bh; 


//  Procedure  to  find  the  mean  and  standard  deviation  of  the  spacing 
//  between  the  fracture  intersections  in  a  borehole. 


Stat  Borehole  ::  f ind_mean_sd_spacing  {) 

{ 

Node_frac*  current  =  head_frac; 
int  i; 

double  total  =  log. length; 
double  meanS=0 .  ,  sdS=0 . ; 
double  spacing; 

if  (Nfraol) 

{ 

for  (i=l;  i<Nfrac;  ++i) 

.{ 

spacing  =  current->next_frac->t  -  current->t; 

means  +=  spacing; 

sdS  +=  spacing* spacing ; 

current  =  current->next_frac; 

}  ; 

means  /=  (Nfrac  -1) ; 

if  (Nfrac  ==  2) 
sdS  =  0 . ; 
else 

sdS  =  sqrt  ( (sdS  -  (Nfrac-1) *meanS*meanS)  /  (Nfrac  -2)); 

} ; 


Stat  spacingMSD  (means,  sdS,  total); 
return  spacingMSD; 

} ; 


//  Procedure  to  print  the  polygons -fractures  of  a  borehole 
//  for  graphical  output 


void  Borehole  : :  print ( ) 

{ 

int  i  ; 

Node_frac*  current  =  head_frac; 
if  (current->fracture) 

{ 

for  ( i=0 ;  i<Nfrac-l;  ++i) 

{current->fracture->print ( ) ; 
OUt«  "  ,  "  ; 

current=current->next_frac; } ; 
current->fracture->print ( ) ; 
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} ; 

return; 
} ; 
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box.C 


ii  ******************************************************************* 

//*'  GEOFRAC  * 

//  *  Copyright  Massachusetts  Institute  of  Technology  1995-1998  * 

//  *  Violeta  Ivanova,  Thomas  Meyer,  Herbert  Einstein  * 

II*  * 

II*  Don't  use  or  modify  without  written  permission  * 

•//  *  (contact  einstein@mit.edu)  * 

//  ******************************************************************* 

ttinclude  "polar. h" 

#include  " cartesian. h" 

# include  "point.h" 

#include  "plane. h" 

# include  "box.h" 

//  Default  constructor  (lxlxl  cube) 

Box  : :  Box  (void) 

{ 

Corner [0] .X=0 . ;  Corner [0] .Y=0 . ;  Corner [0] . Z=1 , ; 

Corner [1] .X=l . ;  Corner [1] ,Y=0 . ;  Corner [1] . Z=1 . ; 

Corner [2 ] .X=l . ;  Corner [2 ] ,Y=1. ;  Corner[2].Z=l.; 

Corner [3] .X=0 . ;  Corner [3 ] ,Y=1 . ;  Corner [3 ] .Z=l . ; 

Corner [4] ,X=0 . ;  Corner [4] ,Y=0 . ;  Corner[4].Z=0.; 

Corner [5] ,X=1 . ;  Corner [5] .Y=0. ;  Corner [5] . Z=0 . ; 

Corner [6] ,X=1 . ;  Corner (6] ,Y=1 . ;  Corner[6].Z=0.; 

Corner [7 ] ,X=0 . ;  Corner [7 ] .Y=l. ;  Corner [7] . Z=0 . ; 
volume='l  .; 

Pl_045=Plane (Corner [0] ,  Corner [4],  Corner[5]); 

Pl_051=Plane (Corner [0] ,  Corner[5],  Corner[l]); 

Pl_156=Plane(Corner(l] ,  Corner[5],  Corner[6]); 

Pl_162=Plane(Corner[l] ,  Corner[6] ,  Corner[2]); 

Pl_632=Plane (Corner [ 6] ,  Corner[3],  Corner[2]); 

Pl_673=Plane (Corner [6] ,  Corner[7],  Corner[3]); 

Pl_703=Plane (Corner [7] ,  Corner [ 0] ,  Corner[3]); 

Pl_740=Plane (Corner [7 ] ,  Corner[4],  Corner[0]); 

Pl_547=Plane  (Corner  [5  J ,  Corner  [ 4]  ,  Corner  [7].); 

Pl_576=Plane(Corner[5] ,  Corner [7 ] ,  Corner[6]); 

Pl_130=Plane(Corner[l]  ,  Corner[3],  Corner[0])’; 

Pl_12 3 =Plane (Corner [1] ,  Corner [2],  Corner [3]); 

}  ; 

//  Constructor 

Box  ::  Box  (Points  P0,  Points  PI,  Points  P2 ,  Points  P3,  Points  P4,  Points  P5, 
Points  P6,  Points  P7) 

{ 

Corner [0] .X=P0 .X;  Corner [0] .Y=P0 .Y;  Corner[0].Z=P0.Z; 

Corner [1] .X=Pl .X;  Corner [1] ,Y=P1 .Y;  Corner[l].Z=Pl.Z; 

Corner [2] .X=P2 .X;  Corner [2] ,Y=P2 .Y;  Corner[2].Z=P2.Z; 

Corner [3] .X=P3 .X;  Corner [3] .Y=P3 .Y;  Corner[3].Z=P3.Z; 

Corner [4] .X=P4 .X;  Corner [4] .Y=P4 .Y;  Corner [4] ,Z=P4.Z; 
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Corner [5 ] .X=P5.X;  Corner [5] .Y=P5 .Y;  Corner [5] . Z=P5 . Z; 

Corner [6] .X=P6.X;  Corner [6] .Y=P6 .Y;  Corner [ 6] . Z=P6 . Z; 

Corner [7 ] .X=P7.X;  Corner [7] .Y=P7 .Y;  Corner [7] . Z=P7 . Z ; 

volume=Corner [1] . triple_product (Corner [2 ] ,  Corner [6] , 

Corner [3] ) +Corner[l] . triple_product (Corner [6] ,  Corner [7] , 

Corner [3 ] ) +Corner [1] . triple_product (Corner [7] ,  Corner [  0  ]  , 

Corner [3 ] ) tCorner [7] . triple_j?roduct (Corner [5] ,  Corner [ 6] , 

Corner [ 1] ) +Corner [7] . triple_product (Corner [0] ,  Corner (5] , 

Corner [1] ) +Corner [7 ] . triple_product (Corner [4] ,  Corner [5] ,  Corner [ 0]  )  ; 

Pl_045=Plane (Corner [0] ,  Corner [4 ] ,  Corner[5]); 

Pl_051=Plane (Corner [ 0] ,  Corner [5] ,  Cornerfl]); 

Pl_156=Plane (Corner [1] ,  Corner [5 ] ,  Corner[6]); 

Pl_162=Plane (Corner [1] ,  Corner [6] ,  Corner[2]); 

Pl_632=Plane (Corner [6]  ,  Corner [3],  Corner [2] ) ; 

Pl_673=Plane (Corner [6] ,  Corner [7 ] ,  Corner[3]); 

Pl_703=Plane (Corner [7]  ,  Corner[0],  Corner[3]); 

Pl_740=Plane (Corner [7] ,  Corner [4],  Corner[0]); 

Pl_547=Plane (Corner [5]  ,  Corner [4],  Corner[7]); 

Pl_576=Plane (Corner [5 ] ,  Corner [7],  Corner[6]); 

Pl_130=Plane (Corner [1] ,  Corner[3](  Corner[0]); 

Pl_123=Plane (Corner [1] ,  Corner [2 ] ,  Corner[3]); 


//  Procedure  to  test  whether  or' not  a  point  is  inside  the  box.  Returns  1  if 
//  inside  or  on  the  surface,  0  if  outside. 

int  Box: : is_point_inside (Points  P) 

{ 

int  i; 

int  decide=l; 
int  test [12]; 

test [0] =Pl_045 . is_point_front_behind(P) ; 
test [1] =Pl_051 . is_point_front_behind(P) ; 
test [2 ] =Pl_156 . is_point_front_behind(P) ; 
test [3] =Pl_162 . is_point_front_behind(P) ; 
test [4] =P1_632 . is_point_front_behind(P) ; 
test [5] =Pl_673 . is_point_front_behind(P) ; 
test  [6]  =Pl_703  .  is_point_front_behind(P) 
test [7] =Pl_740 . is_point_front_behind(P) ; 
test [8] =Pl_547 . is_point_f ront_behind ( P) ; 
test [9] =Pl_576 . is_point_f ront_behind ( P) ; 
test  [10]  =P1__130  .  is_point_front_behind  (P)  ; 
test [11] =Pl_123 . is_point_front_behind (P) ; 

for(i=0;  i<12;  ++i) 

{ 

if (test [i] >0) 
decide=0; 

}  ; 

return  decide; 

}  ; 
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cartesian.C 


ii  ******************************************************************* 

//*  GEOFRAC  * 

//  *  Copyright  Massachusetts  Institute  of  Technology  1995-1998  * 

//  *  Violeta  Ivanova,  Thomas  Meyer,  Herbert  Einstein  * 

//  *  * 
//  *  Don't  use  or  modify  without  written  permission  * 

//  *  (contact  einstein@mit.edu)  * 

/I  ******************************************************************* 

#include  " cartesian. h" 

#include  "polar. h" 

# include  <math.h> 


//  Procedure  to  transform  the  cartesian  coordinates  of  a  direction 
//  into  polar.  Not  to  be  used  for  points  because  polar  coordinates 
//  are  only  two  angles  theta  and  phi,  there  is  no  distance. 

Polar  Cartesian :: convert_to_polar  () 

{ 

double  theta,  phi; 

double  13d  =  sqrt (X*X+Y*Y+Z*Z) ; 

double  12d  =  sqrt (X*X+Y*Y) ; 

if  (X==0 .  &&  Y==0 .  &&  Z>=0.) 
theta  =  phi  =0 .  ; 

else  if  (X==0 .  &&  Y==0 .  &&  Z<0.) 

theta  =  phi  =PI; 
else 
{ 

phi  =  acos(Z/13d); 
theta  =  acos(Y/12d); 
if  (X<0.) 

theta  =  -theta;}; 

Polar*  polar_normal  =  new  Polar (theta,  phi) ; 
return  ( *polar_normal) ; 

}  ; 


//  Function  to  find  the  coordinates  of  a  vector  into  the  LOCAL  coordinate 
//  system.  The  Polar  MeanPole  (theta,  phi)  gives  the  orientation  of  the 
//  mean  vector  in  the  global  plane  of  reference.  The  direction  of  this 
//  vector  is  the  axis  Z  of  the  local  coordinate  system. 


Cartesian  Cartesian: : local_coordinates 

double  ct  =  cos (MP . theta) ; 

double  st  =  sin (MP . theta) ; 

double  cp  =  cos (MP. phi); 

double  sp  =  sin (MP. phi); 


(Polar&  MP)  { 


double  xx  =  X*ct  -  Y*st; 

double  yy  =  X*st*cp  +  Y*ct*cp  -  Z*sp; 
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double  zz  =  X*st*sp  +  Y*ct*sp  +  Z*cp; 
Cartesian  local  (xx,  yy,  zz) ; 
return  local ; 

}  ; 


//  Function  to  find  the  coordinates  of  a  vector  into  the  GLOBAL  coordinate 
//  system.  The  Polar  MeanPole  (theta,  phi)  gives  the  orientation  of  the 
//  mean  vector  in  the  global  plane  of  reference.  The  direction  of  this 
//  vector  is  the  axis  Z  of  the  local  coordinate  system. 

Cartesian  Cartesian: : global_coordinates  (Polar&  MP)  { 

double  ct  =  cos (MP . theta) ; 

double  st  =  sin (MP . theta) ; 

double  cp  =  cos (MP.phi) ; 

double  sp  =  sin(MP.phi); 

double  xx  =  X*ct  +  Y*st*cp  +  Z*st*sp; 
double  yy  =  ~X*st  +  Y*ct*cp  +  Z*sp*ct; 
double  zz  =  -Y*sp  +  Z*cp; 

Cartesian  global  (xx,  yy,  zz) ; 
return  global; 

}  ; 
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cell.C 


// 

// 

// 

// 

// 

// 

// 

// 


★ 

* 

* 

★ 


GEOFRAC  ■  * 

Copyright  Massachusetts  Institute  of  Technology  1995-1998  * 

Violeta  Ivanova,  Thomas  Meyer,  Herbert  Einstein  * 

* 


*  Don't  use  or  modify  without  written  permission  * 

*  (contact  einstein@mit.edu)  * 

******************************************************************* 


#include  "cell.h" 

# include  "polygon.h" 
#include  " listpol.h" 

# include  <math.h> 
#include  <iostream.h> 


#def ine  PI  M_PI 

#def ine  HalfPI  (M_PI/2) 

#def ine  TwoPI  (M_PI*2) 
extern  of stream  out; 
double  RandomO 1  ( ) ; 

ostream&  operator«  (ostream&  o,  Columns  c) 

{ 

int  i ; 

o«"  X  "«c.X«"  Y  "«c . Y«endl; 

Cell*  current  =  c.head_cell; 
for  (i=0;  i<c.Ncells;  ++i) 

{o«i+l«"  Z  "«current->Z« "  V  "«current->value«endl; 
if  (current->GR) 

o«"  GR  "«current->GR«endl  ; 
current  =  current ->next_ce 11 ; } ; 
return  o; 

}  ; 


//  Function  to  add  a  new  cell  (e.g.  porosity  at  elevation  Z) 
//  to  a  column  of  data 

void  Column  : :  add_cell  (Cell  c) 

{ 

Cell*  newCell  =  new  Cell  (c.Z,  c. value,  c.GR); 
newCell->next_cell  =  head_cell; 
head_cell  =  newCell; 

++Ncells ; 
return; 
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}  ; 


//  Function  to  find  the  average  porosity  of  a  column  where  it  is  intersected 
by  a  polygon. 

//  Approximate  calculation:  X  and  Y  of  the  column  have  been  checked  to  be  the 
closest  to 

//  the  center  of  the  polygon  X  and  Y.  Then  the  minimum  and  maximum  Z  are 
calculated  as 

//  Zmin=Zc-Re,  and  Zmax=Zc+Re,  where  Re  is  the  equivalent  radius  of  the 
polygon.  All  values 

//  of  porosity  for  cells  which  are  at  elevation  between  Zmin  and  Zmax  are 
sumemd,  and 

//  the  sum  (divided  by  the  number  of  intersected  cells)  is  returned. 

double  Polygon  : :  f ind_average_porosity  (Columns  C) 

{ 

int  N=0,  i; 

double  Zmax  =  center. Z  +  radius  +  700.; 
double  Zmin  =  center. Z  -  radius  +  700.; 

//if  (Zmin  <  (C ,head_cell->Z) ) 

//  return  -1.; 
double  porosity  =  0.; 

Cell*  current  =  C.head_cell; 
for  (i=0;  icC.Ncells;  ++i) 

{ 

if  (current->Z  >  Zmin  &&  current->Z  <  Zmax) 

(porosity  +=  current -> value; 

N++;}; 

current  -  current->next_cell ; 

}  ; 


if  (N) 

porosity  /=  N; 

//cout«"R  Zmin  Zmax  ”<<radius«"  "«Zmin<<"  "«Zmax«endl; 
//cout« "average  porosity  "<<porosity«endl ; 

return  porosity; 

}  ; 


//  Function  to  find  the  average  GR  of  a  column  where  it  is  intersected  by  a 
polygon. 

//  Approximate  calculation:  X  and  Y  of  the  column  have  been  checked  to  be  the 
closest  to 

//  the  center  of  the  polygon  X  and  Y.  Then  the  minimum  and  maximum  Z  are 
calculated  as 

//  Zmin=Zc-Re,  and  Zmax=Zc+Re,  where  Re  is  the  equivalent  radius  of  the 
polygon.  All  values 

//  of  porosity  for  cells  which  are  at  elevation  between  Zmin  and  Zmax  are 
sumemd,  and 
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//  the  sum  (divided  by  the  number  of  intersected  cells)  is  returned. 

double  Polygon  : :  f ind_average_GR  (Columns  C) 

{ 

int  N=0,  i; 

double  Zmax  =  center. Z  +  radius  +  700.; 
double  Zmin  =  center. Z  -  radius  +  700.; 
double  gamaray  =  0 . 

Cell*  current  =  C.head_cell; 
for  ( i = 0 ;  i<C.Ncells;  ++i) 

{ 

if  (current->Z  >  Zmin  &&  current->Z  <  Zmax) 

{gamaray  +=  cur rent- >GR; 

N++ ;  }  ; 

current  =  current->next_cell; 

}  ; 

if  (N) 

gamaray  /=  N; 

//cout<<"R  Zmin  Zmax  "«radius«"  "«Zmin«"  ”«Zmax«endl; 

//coutcc "average  porosity  "«porosity«endl ; 

return  gamaray; 

} ; 


//  Function  to  mark  a  polygon  according  to  the  averaged  porosity  of  the 
surrounding  rock. 

//  This  function  is  specifically  written  to  interpret  the  Yates  field 
Stratamodel  porosity 

//  data.  Above  a  certain  elevation  (Zmax)  there  are  no  porosity  readings 
available,  but  it 

//  it  known  that  the  rock  is  very  porous  (unconformity)  therefore  the  polygons 
are  marked 

//  with  the  same  probability  as  in  the  strata  where  teh  averaged  porosity  is 
higher  than 
//  maxPor. 


boolian  Polygon  : :  mark_by_j?orosity  (Column*  sgm,  int  Ncol,  double  maxPor, 
double  ratioP) 

{ 

int  N  =  f ind_closest_column  (sgm,  Ncol) ; 

//cout«" center  "cccenter; 

//cout«''closest  column  "«N«"  "«sgm[N]  ,X«"  "«sgm[N]  .Y«endl; 

double  ave_por  =  f ind_average_porosity  (sgm[N] ) ; 

if  ( (ave_por>maxPor  ||  !ave_por)  &&  RandomOlO  >  ratioP) 

{return  FALSE;} 
else 

{  return  TRUE ; } ; 

}  ; 
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/ /  Function  to  mark  a  polygon  according  to  the  averaged  porosity  and  GR  of  the 
surrounding  rock. 

//  This  function  is  specifically  written  to  interpret  the  Yates  field 
Stratamodel  porosity  &  GR 

//  data.  Above  a  certain  elevation  (Zmax)  there  are  no  porosity  readings 
available,  but  it 

//  it  known  that  the  rock  is  very  porous  (unconformity)  therefore  the  polygons 
are  marked 

//  with  the  same  probability  as  in  the  strata  where  the  rock  is  shale. 


boolian  Polygon  ::  mark_by_porosity_and_GR  (Column*  sgm,  int  Ncol,  double 
minPor,  double  maxGR,  double  ratioP) 

{ 

int  N  =  find_closest_column  (sgm,  Ncol); 

//cout«" center  "«center; 

//cout<<"closest  column  "«N«"  "«sgm[N]  .X«"  "«sgm[N]  .Y«endl; 

double  ave_por  =  f ind_average_porosity  (sgm[N]); 

//if  (ave_por  <0.  ) 

//{if  (  RandomOlO  >  ratioP) 

//  return  FALSE; 

//else 

//  return  TRUE;}; 

double  ave_GR  =  f ind_average_GR  (sgm[N] ) ; 
cout«"  P  GR  "«ave_por<<"  "«ave_GR; 

if  ((!ave__por  ||  ave_por<minPor  &&  ave_GR>maxGR  )  &&  RandomOlO  >  ratioP) 
{cout«"  No  "«endl;  return  FALSE;} 
else 

(cout«"  Yes  "«endl;  return  TRUE;}; 

}  ; 


//  Procedure  to  find  and  return  the  number  of  the  column  in  the  Stratamodel  in 
which  a  polygon 

//  is  located.  The  function  finds  the  column  for  which  the  horizontal  distance 
between  the 

//  center  of  the  polygon  and  the  axis  (penter)  of  the  column  is  shortest. 

int  Polygon  : :  find_closest_column  (Column*  cp,  int  Ncol) 

{ 

int  i,  colN=0; 
double  minD,  temp; 

double  xx  =  cp->X  -  center. X; 
double  yy  =  cp->Y  -  center. Y; 
minD  =  sqrt  (xx*xx+yy*yy) ; 

for  (i=l;  i<Ncol;  ++i) 

{ 

xx  =  (cp+i)->X  -  center. X; 
yy  =  (cp+i)->Y  -  center. Y; 
temp  =  sqrt  (xx*xx+yy*yy) ; 
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if  (temp  <  minD) 
{minD  =  temp; 
colN  =  i ; } ; 

}  ; 


return  colN; 

}  ; 


//  Function  to  mark  polygons-fractures  by  porosity,  discarding  those  which  are 
in  very 

//  porous  rock.  This  function  is  specific  for  the  Yates  field  where  highly 

porous  rock  is 

//  too  ductile  to  farture. 

void  ListPolygons  : :  discard_high_porosity  (Column*  sgm,  int  Ncol,  double 
maxPor,  double  ratioP) 

{ 

Node*  current  =  head_pol; 
while  (current->next_pol) 

{ 

if  ( ! current->next_pol->content->mark_by_porosity  (sgm,  Ncol,  maxPor,  ratioP)) 

{ 

current->next_pol  =  current->next_pol->next_pol ; 

— Npol ; } 
else 

current  =  current ->next _pol; 


} ; 


if  ( !head_pol->content->mark_by_porosity  (sgm,  Ncol,  maxPor,  ratioP)) 

{ 

head_pol  =  head__pol->next_pol ; 

— Npol; } ; 
return; 

}  ; 


//  Function  to  mark  polygons-fractures  by  porosity  and  GR,  discarding  those 
which  are  in 

//  shale  (low  porosity,  high  GR)  .  This  function  is  specific  for  TRACT17 . 


void  ListPolygons  ::  discard_shale  (Column*  sgm,  int  Ncol,  double  minPor, 
double  maxGR,  double  ratioP) 

{ 

Node*  current  =  head_pol; 
while  (current->next_pol) 

{ 

if  ( !current->next_pol->content->mark_by_porosity_and_GR  (sgm,  Ncol,  minPor, 
maxGR,  ratioP) ) 
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{ 

current->next_pol  =  current->next_pol->next_pol; 

— Npol ; } 
else 

current  =  current->next_pol ; 

}  ; 

if  ( !head_pol->content->mark_by_jporosity_and_GR  (sgm,  Ncol,  minPor,  maxGR, 
ratioP) ) 

{ 

head_pol  =  head_pol->next_pol; 

--Npol; } ; 
return; 

}  ; 
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circle.C 


ii  ******************************************************************* 

//*  GEOFRAC  * 

//  *  Copyright  Massachusetts  Institute  of  Technology  1995-1998  * 

//  *  Violeta  Ivanova,  Thomas  Meyer,  Herbert  Einstein  * 

//  *  * 
//  *  Don't  use  or  modify  without  written  permission  * 

//  *  (contact  einstein@mit.edu)  * 

II  ******************************************************************* 

#include  "polar. h" 

#include  "cartesian. h" 

#include  "point. h" 

#include  "plane. h" 

#include  " circle. h" 

//  Default  constructor  (radius=l,  centered  on  origin,  horizontal) 

Circle  : :  Circle  (void) 

{ 

radius=l.; 

center. X=0.;  center. Y=0.;  center. Z=0.; 

support .A=0 . ;  support . B=0 . ;  support ,C=1 . ;  support .D=0 . ; 

}  ; 

//  Constructor 

Circle  : :  Circle  (doubles  R,  Points  C,  Planes  PI) 

{ 

radius =R; 

center ,X=C .X;  center. Y=C.Y;  center . Z=C . Z; 

support. A=P1 .A;  support . B=Pl . B;  support .C=Pl .C;  support .D=Pl.D; 

}  ; 


//  Procedure  to  test  whether  or  not  a  point  is  inside  the  circle.  Returns  1  if 
//  inside  or  on  the  perimeter,  0  if  outside.  Make  sure  that  both  point  and 
//  circle  are  on  the  same  plane. 

int  Circle:  : is__point_inside ( Points  F) 

{ 

Cartesian  vect; 
double  l_vect; 

vect ,X=P.X-center.X; 
vect.Y=P.Y-center.Y; 
vect . Z=P . Z-center . Z ; 

l_vect=sqrt (vect .X*vect .X+vect .Y*vect . Y+vect . Z*vect . Z) ; 

if (l_vect<=radius) 
return  1; 
else 

return  0; 

>  ; 
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cubic.C 


il  ******************************************************************* 

//  *  GEOFRAC  * 

//  *  Copyright  Massachusetts  Institute  of  Technology  1995-1998  * 

//  *  Violeta  Ivanova,  Thomas  Meyer,  Herbert  Einstein  * 

//  *  * 
II  *  Don't  use  or  modify  without  written  permission  * 

//  *  (contact  einstein@mit.edu)  * 

II  ******************************************************************* 

#include  " cubic. h" 


//  This  function  calculates  the  coordinates  of  the  normal  vector 
//  to  a  cubic  surface  at  a  point  p(X,Y,Z)  on  the  surface. 

//  The  normal  vector  is  defined  by  the  first  derivative  of  the 
//  surface  equation  f(x,y,z)=0,  i.e.  n= (df /dx, df /dy, df /dz) . 

//  For  cubic  surface  (see  definiton  of  class  Cubic) 

//  the  normal  vector  is  ( -3AXX-2BXY-CYY-2EX-FY-H,  -BXX-2CXY-3DYY-FX-2GY-I ,  1) 
Cartesian  Cubic : :normal_at_point (Points  p)  { 

double  xx  =  3*A*p.X*p.X  +  2*B*p.X*p.Y  +  C*p.Y*p.Y  +  2*E*p.X  +  F*p.Y  +  H; 
double  yy  =  B*p.X*p.X  +  2*C*p.X*p.Y  +  3*D*p.Y*p.Y  +  F*p.X  +  2*G*p.Y  +  I; 

Cartesian*  vector  =  new  Cartesian (-xx,  -yy,  1.); 
return  (*vector) ; 

}; 


//  This  function  finds  the  azimuth  and  latitude  of  a  cubic  surface  at  a  point 
//  Latitude  is  calculated  as  the  angle  from  north  (axis  X) .  Positive  values 
//  are  to  the  east,  negative  values  are  to  the  west.  Axis  Y  is  east. 

II  Azimuth  is  calculated  as  the  angle  between  the  normal  vector  at  the  point 
//  and  the  vertical  axis  Z.  A  Polar  (latitude,  azimuth)  is  returned. 

//  The  coordinate  system  (X,Y,Z)  is  left-handed. 

Polar  Cubic  : :  polar_normal_at_point  (Points  p)  { 

Cartesian  N  =  normal_at_point (p) ; 

Polar*  polar_normal  =  new  Polar; 

*polar_normal  =  N. convert_to_polar  (); 

return  (*polar_normal) ; 

}  ; 


//  This  function  returns  the  strike  and  dip  of  a  cubic  surface  at  a  point, 
//  calculated  as  the  strike  and  dip  of  a  tangent  plane.  Dip  is  between  zero 
//  and  pi/2  measured  from  the  horizontal  to  the  slope  in  a  vertical  plane. 
//  Strike  is  between  -pi  to  pi,  negative  values  are  west  from  north, 

//  positive  values  are  east  from  north. 

//The  system  NTB  is  left-handed,  where  N  is  the  normal  vector,  T  is  the 
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//  strike  tangent  vector,  and  B=NxT  is  binormal  pointing  upward  along 
//  the  dip. 

Polar  Cubic  : :  strike_dip_at_point  (Points  p)  { 

Polar  SD  =  polar_normal_at_point (p) ; 

SD. theta  -=  Half PI; 

if  (SD. theta  <  -PI) 

SD. theta  +=  TwoPI; 
return  SD; 

}  ; 
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divide.C 


ii  ******************************************************************* 

//*  GEOFRAC  * 

//  *  Copyright  Massachusetts  Institute  of  Technology  1995-1998  * 

//  *  Violeta  Ivanova,  Thomas  Meyer,  Herbert  Einstein  * 

//  *  * 
//  *  Don't  use  or  modify  without  written  permission  * 

//  *  (contact  einstein@mit.edu)  * 

/I  ******************************************************************* 

#include  "line.h" 

#include  "polygon. h" 

((include  "listpol.h" 

((define  TRUE  1 
# define  FALSE  0 
((define  boolian  int 
((define  PI  M_PI 
((define  Half  PI  (M_PI/2) 

((define  TwoPI  (M_PI*2) 

((define  xl(a,  b,  f)  (-b+sqrt (f ) ) / (2*a) 

((define  x2  (a,  b,  f)  ( -b-sqrt  ( f )  )  /  (2*a) 

extern  double  MeanArea; 

double  RandomOa  (double  a) ; 

double  exp_value  (double  lambda) ; 

int  PoissonN  (double  lambda,  double  Area) ; 

extern  double  AT; 

//  Procedure  to  create  a  2D  line  from  an  angle  alpha,  distance  D  and  a 
//  circle  radius  R  and  center  given  by  a  Point  C.  The  line 
//  equation  is  X*cos (alpha)  +  Y*sin(alpha)  =  D.  The  two  end  points  are 
//  calculated  to  lie  on  the  circle.  Z  coordinates  are  ZERO. 

Line  : :  Line  (double  angle,  double  D,  double  R,  Points  C) 

{ 

endl.Y  =  C.Y  +  R; 
end2 . Y  =  C.Y  -  R; 

endl.X  =  C.X  +  (D-R*sin (angle) ) /cos (angle) ; 
end2.X  =  C.X  +  (D+R*sin (angle) ) /cos (angle) ; 
endl . Z  =  end2 . Z  =  C . Z ; 

length  =  2*(sqrt(R*R  -  D*D) ) ; 
vector. X  =  -sin(angle); 
vector. Y  =  cos(angle); 
vector. Z  = 0.; 

}  ; 


//  Procedure  to  find  out  if  a  line  intersects  a  polygon  in  2d. 

boolian  Polygon  : :  if_line_intersects  (Lines  1) 

{ 
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int  i ; 

Point*  current  =  head; 
for  (i=0;  i<noP;  ++i) 

{ 

Line  temp  (*current,  * current - >next ) ; 
if  (temp. intersect  (1)) 
return  TRUE; 

current=current->next ; 

}  ; 

return  FALSE; 

}  ; 


//  Procedure  to  find  out  how  a  line  intersects  a  polygon.  Returns  0  if  they 
//  don't  intersect,  1  if  one  side  of  the  polygon  is  intersected  by  the  line, 
//  2  if  two  sides  are  intersected,  and  3  if  the  line  is  inside  the  polygon. 

//  The  line  and  the  polygon  are  2D  and  lie  in  the  SAME  PLANE.  It  is  essential 
//  to  have  calculated  the  center  of  the  polygon  correctly. 


int  Polygon  : :  how_line_inter sects  (Line&  1) 

{ 

int  i=0,  cl=0,  c2=0,  c=0; 

Point*  current  =  head; 

Line  linel  (center,  l.endl); 

Line  line2  (center,  l.end2); 
for  ( i = 0 ;  i<noP;  i++) 

{ 

Line  temp  (* current,  * current ->next) ; 
if  (temp. intersect  (linel)) 
cl++; 

if  (temp . intersect  (line2)) 
c2++ ; 

if  (temp. intersect  (1)) 

C++ ; 

current=current->next ; 

}  ; 

if  ( !cl  &&  !c2) 

return  3;  //  the  line  lies  inside  the  polygon 


if  ( (!cl  &&  c2 )  | | 
return  1; 

if  (cl  &&  c2) 

{  if  (c) 
return  2 ; 
else 

return  0 ; }  ,- 

)  ; 


( !c2  &&  cl) ) 

//  one  end  of  the  line  is  inside  the  polygon, 
//  the  other  end  is  outside 


//  the  line  intersects  two  sides  of  the  polygon 
//  the  line  does  not  intersect  the  polygon 


//  Procedure  to  divide  a  polygon  into  two  polygons  by  a  line  that  intersects 
//  it  (first  make  sure  the  line  intersects  two  sides  of  the  polygon  using 
//  the  function. above .  One  of  the  two  new  polygons  is  returned,  the  other  new 
//  polygon  has  replaced  the  original  polygon.  POLYGON  AND  LINE  ARE  IN  2D. 
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Polygon  Polygon  : :  divide_by_line  (Lines  L) 

{ 

Point*  new__points  =  new  (Point[4]); 

Point*  current  =  head; 
int  i,  j  =  0 ; 

for  (i=0;  i<noP  &&  j<2;  ++i) 

{ 

Line  a_line  (*current, *current->next)  ; 
if  (L. intersect (a_line) ) 

{ 

new_points [ j ]  =  L . intersection_with_line  (a_line) ; 
new_points [ j ] .next  =  current->next; 
current->next  =  new_points+ j ; 

j++; 

current= (current->next) ->next; 

} 

else 

current=current->next ; 

}  ; 


noP+=4 ; 

new_points [2]  =  new_points [0] ; 
new_points [3]  =  new_points [1] ; 

Polygon*  new_pol  =  new  Polygon  {); 

new_jpol->head  =  new_points+2; 
new_pol->head->next  =  new_points [0] .next; 
new_points [3] .next  =  new_points[l].next; 
new_jpoints  [  1  ]  .  next  =  new_pol->head; 
new_points [0] .next  =  new_points+3; 

current =new_po 1 - >head ; 
new_pol->noP  =  0; 
do  { 

new_pol->noP++; 
current=current->next ; 

} 

while  ( ! (current==new_pol->head) ) ; 

noP  -=  new_pol->noP; 

new_j)ol->setPole  =  setPole; 
new_pol->Pole  =  Pole; 
new__pol->strike  =  strike; 
new_pol->dip  =  dip; 

return  (*new_pol) ; 

}  ; 


//  Procedure  to  tessellate  a  2D  polygon  with  Poisson  lines.  The  following 
//  property  of  a  line  process  is  used:  if  the  line  intensity  is  lambda  (i.e. 
//  the  expected  number  of  Poisson  lines  is  lambda*the  area) ,  then  the  ordered 
//  distances  from  an  arbitrary  point  to  the  lines  forms  a  Poisson  process 
//  with  intensity  2*lambda  (the  distance  increments  are  exponential) .  A 
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//  Poisson  line  is  produced  by  generating  an  angle  alpha  uniformly  between  0 
//  and  TwoPI,  and  a  distance  as  a  sum  of  exponential  distances  with  point 
//  intensity  2*lambda  until  the  cumulative  distance  becomes  larger  than 
//  the  radius  of  the  surcumscribed  circle.  Thus  the  number  of  lines  is 
//  Poisson. 


ListPolygons  Poisson_lines_on_polygon  (Polygons  initial,  double  lambda)  { 
ListPolygons*  lp  =  new  ListPolygons; 

Node*  current; 
int  i,  j ,  linelnt; 

double  R  =  initial .minR_inscribe {) ; 
double  expD  =  exp_value  (lambda) ; 
double  cumD  =  -R  +  expD; 
double  angle; 

lp->add_polygon  (initial); 
double  xx  =  initial . center .X; 
double  yy  =  initial . center .Y; 
double  zz  =  initial . center . Z; 

Point  C  (xx,  yy,  zz)  ; 

int  k  =  0 ; 
do  { 

++k; 

angle  =  RandomOa  (TwoPI) ; 

Line  L  (angle,  cumD,  R,  (re¬ 
current  =  lp->head_pol ; 
j  =  lp->Npol; 
for  (i=0;  i< j ;  ++i) 

{ 

if  (  current->content->if_line_intersects  (L) ) 

(Polygon*  new_pol  =  new  Polygon; 

*new_pol  =  current ->content->divide_by_line  (L) ; 
new_pol->f ind_area_radius_2d  (); 
new_pol->find_center() ; 

current->content->f ind_area_radius_2d  (); 

Current->content->f ind_center ( )  ; 
lp->add_polygon  (*new_pol) ; 

} 

current  =  current->next_pol ; } ; 

expD  =  exp_value  (lambda); 
cumD  +=  expD; 

}  while  (cumD  <  R) ; 
return  *lp; 

}  ; 


//  Function  to  produce  a  Poisson  line  network  with  intensity  lambda  on  a 
//  polygon.  The  lines  produced  are  stored  in  a  list.  The  initial  polygon  is 
//  not  tessellated.' 

ListLines  Poisson_lines_on_pol  (Polygons  initial,  double  lambda) 

( 


199 


ListLines*  LL=new  ListLines; 
int  i  ; 

double  R=initial .minR_inscribe ( ) ; 
double  expD=exp_value (lambda) ; 
double  cumD=-R+expD; 
double  angle; 

double  xx=initial .center. X; 
double  yy=initial .center. Y; 
double  zz=initial . center . Z; 

Point  C(xx,  yy,  zz); 

do{ 

angle=RandomOa (TwoPI) ; 

Line  L(angle,  cumD,  R,  C) ; 
LL->add_line (L) ; 
expD=exp_value ( lambda) ; 
cumD+=expD; 

}  while  (cumD<R) ; 
return  *LL; 

}  ; 


//  Procedure  to  perform  a  fractal  tessellation  to  a  polygon  which  is  divided 
//  into  polygons  already.  The  same  line  tessellation  which  has  been  done 
//  to  the  original  polygon  is  performed  into  all  of  the  polygons  of  the 
//  list  until  the  polygons  become  too  small  to  be  affected  by  a  line 
//  network  with  the  given  intensity. 

void  ListPolygons  : :  fractal_tessellation  (double  lambda,  double  fractal) 

{ 

Node*  current  =  head _pol; 
int  i ,  j ; 

int  N  =  Npol ;  cout« "beginning  "<<N«endl; 

ListPolygons*  new_list  =  new  ListPolygons; 
for  (i=0;  icNpol;  ++i) 

{ 

ListPolygons*  new_lp  =  new  ListPolygons; 

*new_lp  =  Poisson_lines_on_polygon  (*current->content,  fractal* lambda) ; 
new_list->add_listpol  (*new_lp) ; 
current  =  current->next_pol ; 


}  ; 

*this  =  *new_list; 

int  N1  =  Npol;  cout«”  end  "«N1<<"  new  "<<N1-N«endl ; 
return; 

}  ; 


//  Procedure  to  perform  a  fractal  tessellation  to  a  polygon  which  is  divided 
//  into  polygons  already.  The  same  line  tessellation  which  has  been  done 
//  to  the  original  polygon  is  performed  into  all  of  the  polygons  of  the 
//  list  until  the  polygons  become  too  small  to  be  affected  by  a  line 
//  network  with  the  given  intensity. 

void  ListPolygons  ::  f ractal_big_and_small  (double  lambda,  double  fractal) 

{ 
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Node*  current  =  head_pol; 
int  i,  j; 

int  N  =  Npol;  cout« "beginning  "«N«endl; 
ListPolygons*  new_list  =  new  ListPolygons; 
for  (i=0;  i<Npol;  ++i) 

{ 


if  (current->content->area  <  AT*MeanArea) 

{ 

ListPolygons*  new_lp  =  new  ListPolygons; 

*new_lp  =  Poisson_lines_on_polygon  { *current->content ,  fractal* lambda) ; 

new_list->add_listpol  (*new_lp) ; 

} 

else 

{ 

Polygon*  new_pol  =  current->content ; 

new_list->add__polygon  (*new_pol) ; 

} ; 

current  =  current ->next_pol ; 

}  ; 

*this  =  *new_list; 

int  N1  =  Npol;  cout«"  end  "«Nl«"  new  "«N1-N«endl; 

return ; 

}  ; 


//  Procedure  to  perform  a  fractal  tessellation  to  a  polygon  which  is  divided 
//  into  polygons  already.  The  same  line  tessellation  which  has  been  done 
//  to  the  original  polygon  is  performed  into  all  of  the  polygons  of  the 
//  list  until  the  polygons  become  too  small  to  be  affected  by  a  line 
//  network  with  the  given  intensity. 

void  ListPolygons  : :  fractal_similar  (double  lambda,  double  fractal) 

{ 

Node*  current  =  head_pol; 
int  i,  j ; 

int  N  =  Npol;  cout«" beginning  "«N«endl; 

ListPolygons*  new_list  =  new  ListPolygons; 
for  (i=0;  i<Npol;  ++i) 

{ 

if  (current->content->area>  AT*MeanArea) 

{ 

ListPolygons*  new_lp  =  new  ListPolygons; 

*new_lp  =  Poisson_lines_on_polygon  (*current->content,  fractal* lambda) ; 
new_list->add_listpol  (*new_lp) ; 

} 

else 

{ 

Polygon*  new_pol  =  current->content; 
new_list->add_polygon  (*new_pol) ; 

} ; 

current  =  current->next_pol ; 

) ; 
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*this  =  *new_list; 

int  N1  =  Npol;  cout<<"  end  "<<N1<<"  new  "<<Nl-N<<endl 
return; 

} ; 
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fractal.C 


ii  ******************************************************************* 

//*  GEOFRAC  * 

//  *  Copyright  Massachusetts  Institute  of  Technology  1995-1998  * 

//  *  Violeta  Ivanova,  Thomas  Meyer,  Herbert  Einstein  * 

//  * 

//  *  Don't  use  or  modify  without  written  permission  * 

//  *  (contact  einstein@mit.edu)  * 

II  ******************************************************************* 

#include  <math.h> 

#include  <stdio.h> 

# include  <iostream.h> 

# include  <f stream. h> 

#include  <stdlib.h> 

# include  < sys/ types .h> 

#include  <time.h> 

#include  <unistd.h> 

#define  PI  M_PI 

#def ine  Half PI  (M_PI/2) 

tdefine  TwoPI  (M_PI*2) 

#define  max(a,b)  ((a)  >  (b)  ?  (a)  :  (b) ) 

#define  min(a,b)  ((a)  <  (b)  ?  (a)  :  (b) ) 

double  Xm,  Ym;  //  Lateral  boundaries  of  the  volume 

double  TRatio; 

double  AngleMin,  elongation; 

double  MeanArea,  MeanA; 

of stream  out; 

double  ratioMA,  CA,  gama; 

double  Da  turn; 

double  MaxPhi; 

double  Fk,  bFk2,  bFkl; 

int  sizeNpdf; 
double  maxR; 
int  Type; 

int  FLTiterations ;  . 
double  FLT; 
double  P; 
char  mark ; 
double  AT; 

#define  xl(a,  b,  f)  (-b+sgrt (f ) ) / (2*a) 

#define  x2 (a,  b,  f)  (-b-sqrt (f ) ) / (2*a) 


ttinclude  "polar. h" 

# include  " cartes ian.h" 
((include  "point. h" 

# include  "line.h" 
#include  "surf ace. h" 
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♦include  " volume. h" 

♦include  "plane. h" 

♦include  " polygon. h" 

♦include  "listpol.h" 

♦include  " listline. h" 

♦include  "borehole. h" 

♦include  "stat.h" 

time_t  time(time_t  *tloc) ; 

double  RandomOl ( ) ; 

double  RandomOa (double) ; 

double  RandomBC (double  ,  double); 

double  exp_value  (double) ; 

int  PoissonN  (double,  double) ; 

Polar  ran_uniform_orientation ( ) ; 

Polar  uniform_max_phi_orient (double) ; 

Polar  constant_orientation ( ) ; 

Polar  Fisher_orientation  (double) ; 

Polygon  make_initial  (Planes,  Volumes); 

ListPolygons  Poisson_lines_on_polygon  (Polygons  ,  double) ; 


main  ( ) 

{ 

srand(time(0)  *  getpidO); 
int  i; 

/********************************************************************* 
*  INPUT  OF  PARAMETERS  FROM  FILE  "Fractallnput.dat" 

*********************************************************************/ 
ifstream  in  ("Fractallnput.dat"); 
if  ( ! in) 

cout<< "cannot  open  file"«endl; 

Datum  =  0  .  ; 

in»Xm»Ym;  //  Extent  of  rectangular  area  (tract) 


//  INPUT  OF  TYPE  OF  MODEL  MARKING 
in»mark; 

in>>ratioMA>>maxR;  //  Coefficients  of  the  model  plane,  line, 

//  and  marking  processes  . 

in»CA; 

in»Type;  //  Type  of  fractal  line  tessellation 

in»FLTiterations»FLT»P;  //  parameters  of  Fractal  Line  Tessellation 

in»AngleMin;  //  Minimum  allowed  angle  for  polygon  shapes 

in»elongation;  //  Maximum  allowed  elongation  of  polygons 

in»sizeNpdf; 

int  Nsize_int  [sizeNpdf+1] ; 
double  sizeMax  [sizeNpdf] ; 

for  ( i  =  0 ;  i<sizeNpdf;  ++i) 

{Nsize_int [i]  =  0; 
in>>sizeMax[i] ; } ; 
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Nsize_int [sizeNpdf ]  =  0; 


double  Fraclnt; 
double  MeanR; 
double  TRatio; 


//  INPUT  OF  PARAMETERS  FOR  INDIVIDUAL  FRACTURE  SETS 

in>>TRatio;  //  Translation  (non-coplanarity) 

in»MeanR; 


in. close ( )  ; 


*  GENERATION  OF  FRACTURE  PLANE 


Stat  meanSD; 

out . open  ( "FractalFrac . txt" ) ; 

out«endl«"mark  >  "«ratioMA«"  and  <  "«maxR«endl; 
out<<"ratioMA  CA  "«ratioMA«"  "«CA«endl; 

MeanA  =  PI*MeanR*MeanR; 
cout«MeanR« "  "  «MeanA«endl ; 

MeanArea  =  MeanA/CA; 

double  intensity  =  sqrt (PI/ (MeanArea) ) ; 

out«"  EXPECTED  RADIUS  AREA  "«MeanR«"  "«MeanA«endl  ; 
out  « "LINE  INTENSITY  "«intensity«endl  ; 

//  GENERATION  OF  THE  FRACTURE  PLANE 

ListPolygons*  FracPlane  =  new  ListPolygons ; 

Polygon  initial; 

Point  pi  (Xm,  Ym,  0.); 
initial . add_point  (pi) ; 

Point  p2  (-Xm,  Ym,  0.); 
initial . add_point  (p2) ; 

Point  p3  (-Xm,  -Ym,  0.); 
initial . add_point  (p3); 

Point  p4  (Xm,  -Ym,  0.); 
initial . add_jpoint  (p4)  ; 
initial . f ind_area_radius_2d ( ) ; 

Line  11  (pi,  p2) ; 

Line  12  (p2,  p3) ; 

Line  13  (p3,  p4) ; 

Line  14  (p4,  pi) ; 

ListLines  LL; 

LL . add_l ine ( 1 1 ) ; 

LL . add_line ( 12 ) ; 

LL.add_line ( 13 )  ; 
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LL . add_l ine ( 1 4 ) ; 


double  InitialA  =  initial . area; 

//  TESSELLATION  OF  A  FRACTURE  PLANE  INTO  POLYGONS 

*FracPlane  =  Poisson_lines_on_polygon  (initial,  intensity); 
cout<< "  PLT  N  polygons  "«FracPlane->Npol«endl; 


//ALL  FRACTURES  in  a  file  "Fractal. m" 
out. open  ( "Fractal .m" ) ; 
out<<"Show  [  " ; 

LL. print ( ) ; 
out« "  ,  "  ; 

FracPlane->print ( ) ; 
out«"]  "«endl<<endl; 
out . close ( ) ; 


meanSD  =  FracPlane->find_mean_sd( ) ; 
out. open  ( "FractalFrac . txt" ,  ios::app); 
out«"All  polygons  by  Poisson  LT  "«endl; 

out«"Mean  SD  Total  N  "«meanSD«"  "«FracPlane->Npol<<"  "«endl; 
out« "Mean /expected  mean  SD/Mean  "«meanSD.Mean/MeanA«"  "ccmeanSD.SD  / 
meanSD .  Mean«endl  ; 
out. close  (); 

//SIZE  OF  ALL  POLYGONS  IN  FILE  "FractalSize.txt" 
out. open  ("FractalSize.txt"); 

out<< "ALL  POLYGONS  by  Poisson  line  tessellation  "«endl; 
out«"Mean  SD  Total  N  "<<meanSD<<"  "«FracPlane->Npol«"  "«endl; 
out<< "Mean /expected  mean  SD/Mean  "«meanSD.Mean/MeanA«"  "«meanSD.SD  / 
meanSD .  Mean«endl«endl  ; 
int  j  ; 

FracPlane->size_distribution  (sizeNpdf ,  Nsize_int,  sizeMax,  MeanA) ; 
for,  ( j  =  0 ;  j<sizeNpdf;  ++ j  ) 

out«sizeMax[  j  ]«"  "«Nsize_int  ( j  ]  «endl; 
out«Nsize_int  [sizeNpdf  ]  «endl«endl ; 
out . close ( ) ; 


//  MARKING  OF  POLYGONS  WITH  GOOD  SHAPE: 

if  (mark  ==  'y'  ||  mark  ==  'Y') 

{ 

FracPlane->mark_good_shape_and_P (AngleMin,  elongation,  P) ; 
cout«"after  mark  "«FracPlane->Npol«endl ; 

//ALL  FRACTURES  in  a  file  " Fractal. m" 
out. open  ( "Fractal. m" ,  ios::app); 
out« "  Show  [  "  ; 

LL. print ()  ; 
out<<" 
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FracPlane->print ( ) ; 
out<<"]  "<<endl<<endl; 
out.closeO; 

meanSD  =  FracPlane->find_mean_sd(MeanR,  maxR) ; 

out. open  ("FractalFrac.txt",  ios::app); 
out« "Marked  polygons  by  Poisson  LT  "<<endl; 

out<<"Mean  SD  Total  N  "«meanSD«"  ”«FracPlane->Npol«"  "«endl; 
out<< "Mean/expected  mean  SD/Mean  "«meanSD.Mean/MeanA«"  "«meanSD.SD  / 
meanSD . Mean<<endl ; 
out. close  (); 


//SIZE  OF  MARKED  POLYGONS  IN  FILE  "FractalSize.txt" 
out. open  ("FractalSize.txt",  ios::app); 
out« "Marked  polygons  by  Poisson  LT  "«endl; 

out<<"Mean  SD  Total  N  "«meanSD<<“  "«FracPlane->Npol« 11  "«endl; 
out«" Mean/ expected  mean  SD/Mean  "«meanSD.Mean/MeanA«"  "«meanSD.SD  / 
meanSD .  Mean«endl«endl  ; 
int  j; 

FracPlane->size_distribution  (sizeNpdf ,  Nsize_int,  sizeMax,  MeanA) ; 
for  ( j  =  0 ;  j<sizeNpdf;  ++ j ) 

out«sizeMax [  j  ]  « "  "«Nsize_int[  j]«endl; 
out«Nsize_int  [sizeNpdf]  «endl«endl ;  ; 
out.closeO; 

} ; 

//  FRACTAL  LINE  TESSELLATION  if  specified  in  INPUT. 

if  ( FLTiterations ) 

{ 

int  m; 

for  (m=0;  m<FLTiterations;  ++m) 

{ 

if  (Type  ==  2) 

FracPlane->fractal_big_and_small  (intensity,  FLT,  AT) ; 
else  if  (Type  ==  3) 

FracPlane->fractal_similar (intensity,  FLT,  AT) ; 
else 

FracPlane->fractal_tessellation  (intensity,  FLT) ; 
cout« "before  mark  "«FracPlane->Npol«endl; 

//  MARK  FRACTAL  POLYGONS 

if  (  (mark  ==  'y'  | |  mark  ==  'Y')  &&  m  ==  FLTiterations-1) 

{ 

FracPlane->mark_good_shape_and_P (AngleMin,  elongation,  P) ; 
cout«"after  mark  "«FracPlane->Npol<<endl ; 

}  ; 


//ALL  FRACTURES  in  a  file  "Fractal. m" 
if  (m  >-  FLTiterations-2 ) 

{ 

out. open  ( "Fractal .m" ,  ios::app); 
out<<"Show  [ 
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LL. print ( ) ; 
out<<" 

FracPlane->print ( ) ; 
out«"]  "<<endl«endl  ; 
out. close ( )  ; 

}  ; 


meanSD  =  FracPlane->f ind_mean_sd (MeanR,  maxR) ; 

out. open  ("FractalFrac.txt",  ios::app); 

out<<"All  polygons  by  Fractal  LT  iteration  "«m«endl; 

out<<"Mean  SD  Total  N  "«meanSD«"  "«FracPlane->Npol«"  "«endl; 

out« "Mean/expected  mean  SD/Mean  gama  "«meanSD.Mean/MeanA«"  "«meanSD.SD  / 

meanSD .  Mean« "  " «meanSD .  total  / InitialA«endl  ; 

out. close  (); 

//SIZE  OF  POLYGONS  IN  FILE  "FractalSize.txt" 

out. open  ("FractalSize.txt",  ios::app); 

out«"FLT  POLYGONS  after  marking  iteration  "«m«endl; 

out«"Mean  SD  Total  N  "«meanSD<<"  "«FracPlane->Npol«"  "«endl; 

out«" Mean /expected  mean  SD/Mean  gama"«meanSD.Mean/MeanA«"  "«meanSD.SD  / 

meanSD . Mean« "  "ccmeanSD.  total / InitialA«endl«endl  ; 

int  j  ; 

FracPlane->size_distribution  (sizeNpdf,  Nsize_int,  sizeMax,  MeanA) ; 
for  ( j  =0 ;  j<sizeNpdf;  ++ j ) 

out«sizeMax[  j  ]«"  "«Nsize_int  [  j  ]  «endl; 

out«Nsize_int  [sizeNpdf  ]  <<endl«endl ;  ; 
out . close { )  ; 


} ; 
} ; 
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initial.C 


II  ******************************************************************* 

//*  GEOFRAC  * 

//  *  Copyright  Massachusetts  Institute  of  Technology  1995-1998  * 

//  *  Violeta  Ivanova,  Thomas  Meyer,  Herbert  Einstein  * 

//  * 

//  *  Don't  use  or  modify  without  written  permission  * 

//  *  (contact  einstein@mit.edu)  * 

I/  ******************************************************************* 


# include  " point. h" 

# include  "polygon.h" 

# include  " plane. h" 

# include  "volume.h" 

{{include  <iostream.h> 

#include  <fstream.h> 
extern  of stream  out; 
extern  double  Xm,  Ym; 
extern  int  Np; 

#define  xl(a,  b,  f)  (-b+sqrt (f ) ) / (2*a) 
#define  x2(a,  b,  f)  (-b-sqrt (f ) ) / (2*a) 


//A  function  to  create  the  polygon  which  a  plane  P  cuts  from  the  modeling 
//  volume  V.  If  p  intersects  the  top  quadratic  surface  of  V,  then  the 
//  curve  of  intersection  is  approximated  by  N  straight  line  segments  between 
//  points  N+l  on  the  surface.  Xm  and  Ym  (also  -Xm  and  -Ym)  are  the  lateral 
//  boundaries  of  the  volume. 


Polygon  make_initial  (Plane&  p.  Volumes  v)  { 

Polygon  initial  (p) ; 

double  A  =  p . A,  B=p . B ,  C=p.C,  D=p.D;  int  i; 

double  xx,  yy,  zz,  a,  b,  c,  d,  e,  f,  aa,  bb,  BB,  CC,  ff; 

a=v.top.A;  b=v.top.B;  c=v.top.C;  d=v.top.D;  e=v.top.E;  f=v.top.F; 

//  First  calculate  points  of  intersections, 

//  if  any,  with  the  lateral  planes  at  elevation  0. 

if  (B)  //  Possible  points  of  intersection 

{  for  (i=0;  i<2;  ++i)  //  with  x=Xm  and  x=-Xm  at  z=0. 

{  if  < ! i) 
xx=Xm; 
else 

xx=-Xm; 

yy= (D-A*xx) /B; 

if  (yy>=-Ym  &&  yy<=Ym) 

{Point*  P  =  new  Point  (xx,  yy,  0.); 
initial . add_point  (*P); 

if  ( !p.C)  //  if  the  plane  is  vertical 

{double  zzl=v. top . f ind_Z_on_surface  (xx,  yy) ; 
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Point*  Pl=new  Point  (xx,  yy,  zzl) ; 
initial . add_point  (*P1);};  };  };}; 

if  (A)  .  //  Possible  points  of  intersection 

{  for  (i=0;  i<2;  ++i)  //  with  y=Ym  and  y=-Ym 

{if  . { I i ) 
yy=Ym; 
else 

yy=-Ym; 

xx= (D-B*yy) /A; 

if  (xx>=-Xm  &&  xx<=Xm) 

{Point*  P=new  Point  (xx,  yy,  0.); 
initial . add_point  (*P)  ; 

if  (!p.C)  //  if  the  plane  is  vertical 

{double  zzl=v. top . f ind_Z_on_surface  (xx,  yy)  ; 

Point*  Pl=new  Point  (xx,  yy,  zzl) ; 
initial . add_point  ( *  PI ) ; ) ;  };};}; 


if  (C)  //  if  the  plane  is  not  vertical 

{  for  (i=0;  i<4;  ++i)  //  checking  if  it  intersects  the  vertical  edges 

{xx=v. P[i] .X;  yy=v . P [ i ] .  Y ; 
zz= (D-A*xx-B*yy) /C ; 
if  (zz<=v. P [i] . Z  &&  zz>=-0.) 

{Point*  P=new  Point  (xx,  yy,  zz); 
initial . add_point  ( * P ) ; } ;  };  }; 

if  (C&&A  | |  C&&B) 

{ 

{  for  (i=0;  i<2;  ++i)  //  Possible  ntersections  with 

{if  (!i)  //  the  top  surface  of  the  volume 

xx=Xm ;  //  at  x=Xm  and  x=-Xm 

else 

xx=-Xm; 

aa= (D-A*xx) /C;  bb=B/C; 

BB= (bb+b*xx+e) ;  CC= (a*xx*xx+d*xx-aa+f ) ; 
if  (c) 

{ 

f f =BB*BB-4*CC*C ; 
if  (ff>=0.) 

{yy=xl (c,  BB,  ff ) ;  zz=aa-bb*yy; 
if  (yy>=-Ym  &&  yy<=Ym) 

{Point*  P  =  new  Point  (xx,  yy,  zz) ; 
initial. add_point  (*P);};  }; 
if  (ff>0.) 

{yy=x2(c,  BB,  ff )  ;  zz=aa-bb*yy; 
if  (yy>=-Ym  &&  yy<=Ym) 

{Point*- P  =  new  Point  (xx,  yy,  zz)  ; 
initial . add_point  (*P);J;  };  } 
else  if  (BB) 

{yy=-CC/BB;  zz=aa-bb*yy; 
if  (yy>=-Ym  &&  yy<=Ym) 

{Point*  P  =  new  Point  (xx,  yy,  zz); 
initial ,add_point  ( *P) ; } ;  } ;  };}; 

{  for  ( i  =  0 ;  i<2;  +  +  i)  //  Possible  intersections  with 

{if  (if)  //  the  top  surface  of  the  volume 
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//  at  y=Ym  and  y=-Ym 


yy=Ym; 
else 

yy=-Ym; 

aa= (D-B*yy) /C;  bb=A/C; 

BB= (bb+b*yy+d) ;  CC= (c*yy*yy+e*yy-aa+f ) ; 

if  (a) 

{ 

f f =BB*BB-4*CC*a; 
if  ( f f >=0 . ) 

{xx=xl(a,  BB,  ff ) ;  zz=aa-bb*xx; 
if  (xx>=-Xm  &&  xx<=Xm) 

{Point*  P  =  new  Point  (xx,  yy,  zz) ; 
initial .add_point  (*P);};  }; 
if  ( f f >0  . ) 

{xx=x2(a,  BB,  ff);  zz=aa-bb*xx; 
if  (xx>=-Xm  &&  xx<=Xm) 

{Point*  P  =  new  Point  (xx,  yy,  zz) ; 
initial .add_point  ( * P ) ; } ;  };  } 

else  if  (BB) 

{xx=-CC/BB;  zz=aa-bb*xx; 
if  (xx>=-Xm  &&  xx<=Xm) 

{Point*  P  =  new  Point  (xx,  yy,  zz); 
initial . add_point  ( *P) ; } ;  } ;  } ; } ; 

}  ; 


initial . f ind_center ( ) ; 
return  initial; 

} 


//  Function  to  add  N  points  to  a  side  of  a  polygon  which  is  not  linear 
//  but  lies  on  a  surface.  The  curved  side  is  approximated  by  N+l  linear 
//  segments. 

void  Polygon: :add_points_on_surf ace  (Plane&  pi.  Surfaces  s,  int  N,  double  Zm) 

{ 

double  a=s.A,  b=s.B,  c=s.C,  d=s.D,  e=s.E,  f=s.E; 
if  (a  | |  b  [ |  c) 

{  ' 

Point*  current  =  head; 
int  i ,  j ; 

double  xx,  yy,  zz,  x,  y,  z,  ff; 
double  A=pl.A,  B=pl.B,  C=pl.C,  D=pl.D; 

Cartesian  CB  =  pi . f ind_binormal ( ) ; 

for  (i=0;  i<noP;  i++) 

{ 

if  (s.is_point_on_surface(*current)  &&  s . is_point_on_surface ( *current->next) ) 
{  xx  = (current->next->X  -  current->X)  /  ( (double) N+l .) ; 
yy  =  (current->next->Y  -  current->Y)  /  ( (double) N+l .) ; 

zz  =  (current->next->Z  -  current->Z)  /  ( (double) N+l .) ; 

x  =  current->X;  y=current->Y;  z=current->Z; 
for  ( j  =  0 ;  j<N;  ++j ) 

{x+=xx;  y+=yy;  z+=zz; 

Point  p  (x,  y ,  z ) ; 
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Line  1  (p,  CB,  Zm) ; 

Point  *P  =  new  Point; 

*P  =  s . intersection_by_line  (1) 
P->next  =  current->next; 
current ->next  =  P; 
noP  ++; 

current=current->next ; 

}  ; 

return; 

} 

else 

current=current->next ; 

}  ; 

}  ; 

return;  }; 


intersections. C 

ii  ******************************************************************* 

//*  GEOFRAC  * 

//  *  Copyright  Massachusetts  Institute  of  Technology  1995-1998  * 

//  *  Violeta  Ivanova,  Thomas  Meyer,  Herbert  Einstein  * 

//  *  * 
//  *  Don't  use  or  modify  without  written  permission  * 

// *  '  (contact  einstein@mit.edu)  * 

II  ******************************************************************* 

#include  "point. h" 

# include  " 1 ine . h " 

#include  "surf ace. h" 

# include  " plane. h" 

# include  "polygon.h" 

#include  "listpol.h" 

#include  " listline. h" 

#include  " circle. h" 

#define  xl(a,  b,  f)  (-b+sqrt (f ) ) / (2*a) 

#define  x2(a,  b,  f)  (-b-sqrt (f ) ) / (2*a) 


//  This  procedure  calculates  the  coordinates  of  the  point  in  which  a  line 
//  intersects  a  surface.  First  use  the  procedures  in  "surf ace. C"  to  find  out 
//  if  the  line  intersects  the  surface  at  all.  All  calculations  are  in  3D. 


Point  Surface  : :  intersection_by_line  (Linek  L)  { 

Point*  P  =  new  Point; 
double  t,  aa,  bb,  cc,  ff; 

double  a  =  L. vector. X,  b  =  L. vector. Y,  c  =  L. vector. Z; 
double  Xl  =  L.endl.X,  Yl  =  L.endl.Y,  Zl=L.endl.Z; 

aa  =  A*a*a  +  B*a*b  +  C*b*b; 

bb  =  2*A*a*Xl  +  B*a*Yl  +B*b*Xl  +  2*C*b*Yl  +  D*a  +  E*b  -  c; 
cc  =  A*X1*X1  +  B*X1*Y1  +  C*Y1*Y1  +  D*X1  +  E*Yl  +  F  -  Zl; 

if  ( ! aa) 

{t  =  -cc/bb; 

P->X  =  a*t+Xl;  P->Y  =  b*t+Yl ;  P->Z  =  c*t+Zl; 
return  *P;  } 
else 
{ 

ff  =  bb*bb  -  4*aa*cc; 
if  (ff  >=  0.) 

{ 

•  t  =  xl ( aa ,  bb ,  f  f ) ; 
if(t>=0.  &&  t<=L. length) 

{P->X  =  a*t+xi;  P->Y  =  b*t+Yl ;  P->Z  =  C*t+Zl; 
return  *P;  } 
else 
{ 

t  =  x2 ( aa ,  bb ,  f  f ) ; 
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P->X  =  a*t+Xl;  P->Y  =  b*t+Yl;  P->Z  =  c*t+Zl; 
return  *P;  };  }; 

} ; 

}  ; 


//Function  to  calculate  if  a  plane  intersects  a  line  segment.  The  parametric 
//  equation  of  a  line  is  used:  x=X+at,  y=Y+bt,  z=Z+ct,  where 
//  P (X,  Y,  Z)  is  a  point  on  the  line,  (a,  b,  c)  is  the  vector  parallel 
//  to  the  line.  If  P  is  the  first  end  of  the  segment,  then  the  line  intersects 
//  the  plane  if  t  is  between  0  and  the  length. 

boolian  Line  : :  if_intersects_plane  (Planek  p) 

{ 

double  a=vector.X,  b=vector.Y,  c=vector.Z; 
double  abc  =  p.A*a  +  p.B*b  +  p.C*c; 
if  (abc>=  -0.00001  &&  abc<=0 . 00001) 

return  FALSE;  //  the  line  is  parallel  to  the  plane 

else 

.{ 

double  t  =  (p.D  -  p.A*endl.X  -  p.B*endl.Y  -  p . C*endl . Z) /abc; 
if  (t>=0.  &&  t<=length) 
return  TRUE; 

else 

return  FALSE; 

}  ; 

} ; 


//  Procedure  to  find  the  point  of  intersection  of  a  line  segment  and  a  plane. 
//  First  use  the  procedure  to  find  out  if  they  intersect  at  all. 

Point  Line  ::  intersection_with_plane  (Plane&  p) 

{ 

double  t  =  (p.D-p.A*endl .X-p. B*endl . Y- 

p.C*endl.Z) / (p.A*vector.X+p.B*vector.Y+p.C*vector.Z) ; 
double  xx  =  endl.X  +  vector. X*t; 
double  yy  =  endl.Y  +  vector. Y*t; 
double  zz  =  endl.Z  +  vector. Z*t; 

Point*  intersection  =  new  Point(xx,  yy,  zz) ; 
return  ‘intersection; 

} ; 


//  Procedure  to  find  out  if  a  line  intersects  a  polygon.  Temporarily  creates 
//a  plane  through  the  polygon. 

//If  the  line  intersects  the  plane,  the  point  of  intersection  is  calculated. 
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//  If  the  point  is  inside  the  polygon,  the  function  returns  TRUE. 

boolian  Polygon  : :  if_3d_line_intersects  (Lines  L) 

{ 

Cartesian  N  (Pole) ; 

Plane  p  (N,  *head,  setPole) ,- 
if  ( ! (L . if_intersects_plane  (p) ) ) 
return  FALSE; 
else 
{ 

int  how  =  TRUE; 

Point  P  =  L. intersection_with_plane  (p) ; 

Cartesian  temp  (P.X,  P.Y,  P.Z); 
temp  =  temp. local_coordinates  (Pole); 

P.X  =  temp.X;  P.Y=temp.Y;  P.Z  =  temp.Z; 
make_polygon_2d() ; 

Line  a_line  (P,  center) ; 
if  (if_line_intersects (a_line) ) 
how  =  FALSE; 

make_polygon_3d( ) ; 
return  how; 

}  ; 

}  ; 


//  Procedure  to  find  the  point  of  intersection  of  a  line  with  a  polygon. 
//  First  use  the  procedure  above  to  find  out  if  the  line  intersects  the 
polygon 

//  at  all.  If  the  line  intersects  the  polygon,  then  there  is  only  one 
//  point  where  they  intersect,  and  it  is  the  point  where  the  line  segment 
//  intersects  the  plane  of  the  polygon. 

Point  Polygon  : :  intersection_with_line  (Lines  L) 

{  . 

Cartesian  N  (Pole); 

Plane  p  (N,  *head,  setPole) ; 

Point*  new_point  =  new  Point; 

*new_point  =  L. intersection_with_plane  (p) ; 
return  *new_point; 

} ; 


//  Procedure  to  find  out  if  a  polygon  intersects  another  polygon  in  3D. 

boolian  Polygon  : :  if_polygon_intersects  (Polygons  pol) 

{ 

Cartesian  N  (Pole) ; 

Plane  p  (N,  *head,  setPole) ; 
if  (pol . if_intersects_plane (p) ) 

{ 

Line  L  =  pol . intersection_with_plane  (p) ; 
make_polygon_2d ( ) ; 

L. local_coordinates (Pole)  ; 
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if  (if_line_intersects  (L) ) 
{  make_polygon_3d ( )  ; 
return  TRUE;  } 
else 

make_polygon_3d( ) ; } ; 
return  FALSE; 

} ; 


//  Procedure  to  find  out  if  a  plane  intersects  a  polygon.  Returns  TRUE  if 
//  any  of  the  sides  of  the  polygon  intersects  the  plane. 

boolian  Polygon  ::  if_intersects_plane (Plane&  p) 

{ 

Point*  current  =  head; 
int  i ;  • 

for  (i=0;  i<noP;  ++i) 

{ 

Line  temp  (*current,  *current->next) ; 
if  (temp. if_intersects_plane  (p) ) 
return  TRUE; 
else 

current  =  current->next ; 

}  ; 

return  FALSE; 

}  ; 


//  Procedure  to  calculate  the  line  of  intersection  of  a  polygon  with  a  plane 
//  First  use  the  procedure  above  to  find  out  if  they  intersect  at  all. 

Line  Polygon  : :  intersection_with_plane  (Plane&  p) 

{ 

Point*  current  =  head; 
int  i,  j=0; 

Point  first,  second; 

for  (i=0;  icnoP  &&  j<2;  ++i) 

{ 

Line  l(*current,  *current->next) ; 
if  ( 1 . if_intersects_plane  (p) ) 

{  if  (  !  j ) 

first  =  1 . intersection_with_plane  (p) ; 
else 

second  =  1 . intersection_with_plane  (p) ; 

++ j  ;  }  ; 

current  =  current->next; 

}  ; 

Line*  trace  =  new  Line (first,  second); 
return  * trace ; 

}  ; 
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//  Procedure  to  calculate  the  list  of  lines  which  are  the  intersections  of 
//  the  list  of  polygons  with  a  plane. 


ListLines  ListPolygons  ::  traces_on_plane  (Planes  p) 

{ 

ListLines*  traces  =  new  ListLines; 
int  i  ; 

Node*  current  =  head_pol; 
for  (i=0;  i<Npol;  ++i) 

{ 

if  (current->content->if_intersects_plane  (p) ) 

{  Line*  new_line  =  new  Line; 

*new_line  =  current->content->intersection_with_plane (p) ; 
traces->add_line  ( *new_line) ,- } ; 
current  =  current->next_pol; 

}  ; 

return  * traces ; 

}  ; 


//  Procedure  to  find  where  a  polygon  is  located  relative  to  a  surface. 

//  The  function  returns  1  if  the  polygon  (all  of  its  vertices)  is  entirely 
//  above  the  surface,  -1  if  it  is  entirely  below  the  surface,  or  0  if 
//  it  intersects  the  surface. 

int  Polygon  : :  above_or_below„surface  (Surfaces  s) 

{ 

Point*  current  ='  head; 
int  i,  counter  =  0; 
int  how; 

for  ( i  =  0 ;  i<noP;  +  +  i) 

{ 

how  =  s . is_point_above_below  (*current); 

counter  +=  how; 

current  =  current->next ; 

}  ? 


if  (counter  ==  noP  ) 

return  1;  //All  vertices  are  above  the  surface 

if  (counter  ==  -noP) 

return  -1;  //  All  vertices  are  below  the  surface 

else 

return  0;  //  The  surface  intersects  the  polygon 

}  ; 
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//  Procedure  to  cut  a  polygon  by  a  surface.  The  new  polygon  is  the  portion' 
//  above  the  surface  if  the  character  argument  is  'A1  or  'a',  or  the  portion 
//  below  the  surface  if  the  character  constant  is  'B'  or  ' b ' 

//  Use  only  after  the  function  above  has  returned  0  for  the  polygon,  i.e. 

//  if  the  polygon  is  intersected  for  sure  by  the  surface. 

//  After  returning  from  the  function  make  sure  to  use  the  function  for 
//  calculating  area,  center,  and  radius  of  the  new  polygon. 

void  Polygon  : :  cut_by_surface  (Surfaces  s,  char  how) 

{ 

int  how_head  =  s . is j>oint_above_below  (*head) ; 

Point*  current  =  head; 
int  i,  j=0; 

Point*  new_points  =  new  (Point[2]); 

for  ( i  =  0 ; .  i<noP  &&  j<2;  ++i) 

{ 

Line  a_line  (*current, *current->next) ; 
if  ( ! s .how_line_intersect  (a_line) ) 

{ 

new_points [ j ]  =  s . intersection_by_line  (a_line) ; 

new_points ( j ] .next  =  current ->next; 
current->next  =  new_points+ j ; 
j++; 

current=current->next->next ; 

} 

else 

current=current->next ; 

} ; 


if  ( (howjhead  <=0  &&  (how  ==  'B'  ||  how=='b'))  ||  (how_head>=0&& (how  ==  'A'  | 

how== ' a ' ) ) ) 

{  head  =  &new_points [ 0 ] ; 

head->next  =  &new_points [1] ; 

} 

else 

{ 

head  =  &new__points  [1]  ; 
head->next  =  &new_points [0] ; 

}  ; 


current  =  head; 
noP  =  0; 
do’  { 
noP++; 

current=current->next ; 

} 

while  ( ! (current==head) ) ; 

area_radius_3d( ) ; 
return; 
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}  ; 


//  Procedure  to  cut  a  polygon  by  a  plane.  The  new  polygon  is  the  portion 
//  in  front  of  the  plane  if  the  character  argument  is  ' F '  or  ' f '  ,  or  the 
portion 

//  behind  the  plane  if  the  character  constant  is  'B'  or  ' b ' 

//  Use  only  after  the  function  if_intersects_plane  has  returned  TRUE  for 
//  the  polygon,  i.e.  if  the  polygon  is  intersected  for  sure  by  the  plane. 
//  After  returning  from  the  function  make  sure  to  use  the  function  for 
//  calculating  area,  center,  and  radius  of  the  new  polygon. 

void  Polygon: : cut_by_plane (Plane  &P,  char  how) 

{ 

int  how_head  =  P . is_point_front_behind ( *head) ; 

Point*  current  =  head; 
int  i,  j=0; 

Point*  new_points  =  new  (Point[2]); 

for  ( i  =  0 ;  i<noP  &&  j<2;  ++i) 

{ 

Line  a_line  (*current, *current->next) ; 
if  (a_line.if_intersects_plane(P) ) 

{ 

new_points [ j ]  =  a_line.intersection_with_plane(P); 

new_points [ j ] .next  =  current->next ; 
current->next  =  new_points+ j • 

j++; 

current=current->next->next ; 

} 

else 

current=current->next ; 

}  ; 


if  ( (how_head  <=0  &&  (how  ==  'B'  ||  how=='b'))  ||  (how_head>=0&& (how  ==  ’ F 
how== ' f ' ) ) ) 

{  head  =  &new_points [0] ; 

head->next  =  &new_points [1] ; 

} 

else 

{ 

head  =  &new_points [1]  ; 
head->next  =  &new__points  [0]  ; 

}; 

current =head; 
noP=0 ; 
do 

{ 

noP++ ; 

current=current->next ; 

} 

while ( ! (current==head) )  ; 
area_radius_3d() ; 
f ind_center ( )  ; 
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return; 
}  ; 
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line.C 


ii  ******************************************************************* 

//*  GEOFRAC  * 

//  *  Copyright  Massachusetts  Institute  of  Technology  1995-1998  * 

//  *  Violeta  Ivanova,  Thomas  Meyer,  Herbert  Einstein  * 

//  *  * 
//  *  Don't  use  or  modify  without  written  permission  * 

//  *  (contact  einstein@mit.edu)  * 

II  ******************************************************************* 

#include  "point. h" 

#include  "line.h" 
extern  of stream  out; 

//  Function  to  print  a  line  for  graphics  output  (code  in  mathematica) 

void  Line :: print () { 
out<<"Graphics3D  [Line  [{"; 
endl . print ( )  ; 
out« " ,  "  ; 
end2 .print ( )  ; 

out  «  "}],  PlotRange->All ,  Axes->True,  Boxed->True] " ; 
return; 

} ; 


//  Function  to  find  if  a  Point  P(X,Y,Z)  is  on  a  line  segment  L1L2 . 

//  The  function  uses  the  parametric  equation  for  a  line  (see  "line.h") 

boolian  Line  : ;  is_point_on_line  (Point&  P) 

{ 

double  xx=0.,  yy=0.,  zz=0.,  tl,  t2; 
if  (vector ,X<-0 . 000001  ||  vector. X  >  0.000001) 
xx  =  (P.X  -  endl.X)  /  vector. X; 
if  (vector .Y<-0 . 000001  ||  vector .Y>0 . 000001) 
yy  =  (P.Y  -  endl.Y)  /  vector. Y; 
if  (vector . Z<-0 . 000001  ||  vector . Z>0 . 000001) 
zz  =  (P.Z  -  endl.Z)  /  vector. Z; 

if  (xx  &&  yy  &&  zz) 

{ 

tl  =  xx-yy,  t2  =  xx-zz; 

if  ( (tl<0. 00001)  &&  (tl>-0. 00001)  &&  (t2<0. 00001)  &&  (t2>-0. 00001)  && 
(xx<=length)  &&  (xx>0.)) 
return  TRUE; 
return  FALSE;} 
else  if  (xx  &&  yy) 

{tl  =  xx-yy; 

if  (tl<0. 00001  &&  tl>-0. 00001  &&  xx  <=  length  &&  xx  >=  0.) 
return  TRUE; 
return  FALSE; } 
else  if  (xx  &&  zz) 

{tl  =  xx-zz; 

if  (tl<0. 00001  &&  tl>-0. 00001  &&  xx  <=  length  &&  xx  >=  0.) 
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return  TRUE; 
return  FALSE; } 
else  if  (yy  SS  zz) 

(tl  =  yy-zz; 

if  (tl<0. 00001  &&  tl>-0. 00001  SS  yy  <=  length  SS  yy  >=  0.) 
return  TRUE; 
return  FALSE; } 
else  if  (xx) 

{if  (xx  <=  length  SS  xx  >=  0.) 
return  TRUE;} 
else  if  (yy) 

{if  (yy  <=  length  SS  yy  >=  0.) 
return  TRUE; 
return  FALSE;} 
else  if  (zz) 

{if  (zz  <=  length  SS  zz  >=  0.) 
return  TRUE; 
return  FALSE;} 

else 

return  FALSE; 


//  Two  functions  necessary  to  determine  if  two  lines  in  (X,Y)  plane 
//  intersect  or  cross 

//  From  "Algorithms  in  C++"  by  Sedgwick,  Chapter  24 

int  ccw  (Points  pO,  Points  pi.  Points  p2) 

{ 

-double  dxl,  dx2,  dyl,  dy2; 
dxl=  pl.X  -  pO.X;  dyl  =  pl.Y  -  pO.Y; 
dx2=  p2.X  -  pO.X;  dy2  =  p2.Y  -  pO.Y; 
if  (dxl*dy2  >  dyl*dx2)  return  1; 
if  (dxl*dy2  <  dyl*dx2)  return  -1; 
if  ( (dxl*dx2  <  0)  | |  (dyl*dy2  <  0))  return  -1; 

if  ( (dxl*dxl+dyl*dyl)  <  (dx2*dx2+dy2*dy2) )  return  1; 
return  0; 

}  ; 


boolian  Line :: intersect  (Lines  1) 

{ 

if  (((ccw(endl,  end2,  l.endl)  *  ccw(endl,  end2,  l.end2))  <=0  )  SS 
( (ccw(l.endl,  l.end2,  endl)  *  ccw(l.endl,  l.end2,  end2))  <=0) ) 
return  TRUE; 
return  FALSE; 

}  ; 


//  Function  to  find  the  point  of  intersection  of  a  2D  line  with 
//  another  2D  line  in  a  plane 

//  FIRST  USE  THE  TWO  FUNCTIONS  ABOVE  TO  FIND  OUT  IF  THE  TWO  LINES 
//  INTERSECT  AT  ALL 

Point  Line : : intersection_with_line  (Lines  1)  ■ 

{ 

double  xx,  yy,  slopel,  slope2; 
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if  (endl .X==end2 .X) 

{ 

xx  =  endl . X ; 

slope2  =  (1 . end2 .Y-l . endl .Y) / (1 . end2 .X-l . endl .X) ; 
yy  =  l.endl.Y  +  slope2* (xx-l\endl .X) ; } 
else  if  (1 . endl .X==l . end2 .X) 

{ 

xx  =  1 . endl . X ; 

slopel  =  (end2 .Y-endl .Y) / (end2 .X-endl .X) ; 
yy  =  endl.Y  +  slopel* (xx-endl .X) ; } 
else  { 

slopel  =  (end2 .Y-endl .Y) / (end2 .X-endl .X) ; 
slope2  =  ( 1 . end2 .Y-l . endl .Y) / (1 . end2 .X-l . endl .X) ; 

xx  =  (endl . Y- slopel* endl .X-l . endl . Y+slope2*l . endl .X) / (slope2- slopel) ; 

yy  =  (slope2*endl . Y-slope2*slopel*endl .X- 

slopel*l . endl . Y+slopel*slope2*l . endl .X) / (slope2 -slopel ) ; 

}  ; 

Point*  intersection  =  new  Point; 
intersection  =  Point  (xx,  yy,  endl.Z); 
return  * intersection; 

}  ; 


//  Procedure  to  find  the  local  coordinates  of  a  line  in  a  frame  of  reference 
//  with  Z  axis  given  by  Pole  in  the  global  f.o.r. 

void  Line  : :  local_coordinates  (Polar&  p) 

{ 

Cartesian  tempi,  temp2; 

tempi. X  =  endl.X;  tempi. Y  =  endl.Y;  tempi. Z  =  endl.Z; 
tempi  =  tempi . local_coordinates  (p) ; 

endl.X  =  tempi. X;  endl.Y  =  tempi. Y;  endl.Z  =  tempi. Z; 


temp2.X  =  end2.X;  temp2.Y  =  end2.Y;  temp2.Z  =  end2.Z; 
temp2  =  temp2 . local_coordinates  (p) ; 

end2.X  =  temp2.X;  end2.Y  =  temp2.Y;  end2.Z  =  temp2.Z; 


vector .X 
vector. Y 
vector. Z 


end2.X  -  endl.X; 
end2 . Y  -  endl . Y ; 
end2 . Z  -  endl . Z ; 


return; 
}  ; 


//  Procedure  to  find  the  global  coordinates  of  a  line. 

void  Line  : :  global_coordinates  (Polar&  p) 

{ 

Cartesian  tempi,  temp2; 

tempi. X  =  endl.X;  tempi. Y  =  endl.Y;  tempi. Z  =  endl.Z; 

tempi  =  tempi . global_coordinates  (p) ; 

endl.X  =  tempi. X;  endl.Y  =  tempi. Y;  endl.Z  =  tempi. Z; 
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temp2.X  =  end2.X;  temp2.Y  =  end2.Y;  temp2 . Z  =  end2.Z; 
temp2  =  temp2 .global_coordinates  (p) ; 

end2.X  =  temp2.X;  end2.Y  =  temp2.Y;  end2 . Z  =  temp2.Z; 

vector. X  =  end2.X  -  endl.X; 
vector. Y  =  end2.Y  -  endl.Y; 
vector. Z  =  end2 . Z  -  endl.Z; 

return; 

}  ; 

//  Function  to  find  the  shortest  distance  between  Point  P  and  the 
//  line  in  3D  space. 

double  Line :: shortest_dist_to_point (Point&  P) 

{ 

Cartesian  unit; 

unit .X= (end2 .X-endl .X) /length; 
unit .Y= (end2 . Y-endl . Y) /length; 
unit . Z= (end2 . Z-endl . Z) /length; 

Cartesian  vect; 
double  l_vect; 
vect . X=P . X-endl . X ; 
vect. Y=P. Y-endl. Y; 
vect . Z=P . Z-endl . Z ; 

l_vect=sqrt (vect ,X*vect .X+vect . Y*vect . Y+vect . Z*vect . Z) ; 

double  l_inter; 
double  dist; 

l_inter=vect .X*unit .X+vect . Y*unit . Y+vect . Z*unit . Z; 
dist=sqrt (l_vect*l_vect-l_inter*l_inter) ; 

return  dist; 

}  ; 


//  Function  to  find  the  intersection  between  the  line  and  a  perpendicular 
//  passing  through  point  P.  The  line  is  considered  as  infinite. 

Point  Line intersection  from  point ( Points  P) 

{ 

Cartesian  unit; 

unit.X= (end2 .X-endl .X) /length; 
unit.Y= (end2 .Y-endl .Y) /length; 
unit . Z= (end2 . Z-endl . Z) /length; 

Cartesian  vect; 
double  l_vect; 
vect .X=P. X-endl .X; 
vect.Y=P.Y-endl.Y; 
vect.Z=P.Z-endl.Z; 

l_vect=sqrt (vect .X* vect .X+vect .Y* vect .Y+vect . Z*vect . Z) ; 
double  l_inter; 

l_inter=vect ,X*unit .X+vect . Y*unit .Y+vect . Z*unit . Z; 
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Point  intersect; 

intersect .X=endl .X+l_inter*unit .X; 
intersect . Y=endl . Y+l_inter*unit . Y; 
intersect . Z=endl . Z+l_inter*unit . Z ; 

return  intersect; 

} ; 

//  NEWLY  ADDED  FUNCTION.  AUG  18,  2000 

//  determines  if  a  point  is  an  endpoint  of  the  line.  this  is  used  in 
//  the  intersection  calculation  algorithm. 

/*bool  Line : : is_point_an_endpoint_of_line  (Points  p) 

{ 

if  (endl==p  | |  end2==p) 
return  true; 
return  false; 

};*/ 

//  NEWLY  ADDED  FUNCTION.  AUG  18,  2000 
//  calculates  the  midpoint  of  the  line  segment 
Points  Line : :midpt_of_the_line ( ) 

{ 

Point  *p=new  Point; 
p^>X= (endl .X+end2 .X)/2; 
p->Y= (endl . Y+end2 . Y) /2 ; 
p->Z= (endl . Z+end2 . Z) /2 ; 
return  '  { *p) ; 

} ; 

//NEWLY  ADDED  MEMBER  JUN  13,  2001 
//  calculates  the  plunge  of  the  line  in  degrees 
//  angle  with  horizontal 
double  Line :  :  compute__plunge  ( ) 

{ 

Point  p0; 

Point  pi (vector. X,  vector. Y,  0) ; 

Line  11 (pO,  pi) ; 

double  plunge=angle_with_line (11) ; 
return  plunge*180/PI ; 

} 

//NEWLY  ADDED  MEMBER  JUN  13,  2001 
//  calculates  the  trend  of  the  line  in  degrees 
//  angle  with  north,  Y-axis,  clockwise 
double  Line :  :  compute__trend  ( ) 

{ 

Point  p0; 

Point  pl(vector.X,  vector. Y,  0) ; 

Point  p2 (0,  1,  0)  ; 

Line  11 (pO,  pi) ; 

Line  12 (pO ,  p2 ) ; 

double  trend=ll ,angle_with_line (12) ; 
if (vector .X>=0  &&  vector. Z>0)  return  trend*180/PI+180; 
if (vector .X<0  &&  vector. Z<0)  return  360-trend*180/PI; 
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if (vector .X<0  &&  vector. Z>0)  return  180-trend*180/PI ; 


else  return  trend*180/PI; 

} 


226 


listline.C 


ii  ******************************************************************* 

//*  GEOFRAC  * 

//  *  Copyright  Massachusetts  Institute  of  Technology  1995-1998  * 

//  *  Violeta  Ivanova,  Thomas  Meyer,  Herbert  Einstein  * 

//  * 

//  *  Don't  use  or  modify  without  written  permission  * 

//  *  (contact  einstein@mit.edu)  * 

II  ******************************************************************* 

ttinclude  " listline. h" 

#include  "line.h" 

#include  " circle. h" 

# include  "polygon.h" 

#include  <math.h> 

#include  <iostream.h> 
extern  of stream  out; 

w 

#def ine  PI  M_PI 

#def ine  Half PI  (M_PI/2) 

#define  TwoPI  (M_PI*2) 


//  Function  to  add  a  new  line  at  the  head  of  a  list  of  lines. 

void  ListLines  : :  add_line  (Line&  1) 

{ 

Node_line*  new_head  =  new  Node_line; 
new_head->content  =  &1; 
new_head->next_line  =  head_line; 
head_line  =  new_head; 

++Nline; 

//cout«"in  add_line  ( )  \n" ; 
return; 

}  ; 


//  Function  to  print  a  list  of  lines  for  non  graphical  output. 

ostream&  operator«  (ostreamSc  o,  ListLines&  11) 

{ 

o«"N  LINE  "«ll.Nline«endl; 

Node_line*  current  =  11 .head_line; 
int  i  ; 

for  (i=0;  i<ll.Nline;  ++i) 

{ 

o<<  ( *current->content )  «endl  ; 
cur rent =cur rent - >next_l ine ; 

}  ; 
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return  o; 

} ; 


//  Function  to  print  a  list  of  lines  for  graphics  output  as  mathematica 
//  code 

void  ListLines  ::  print ( ) 

{ 

int  i  ; 
int  j  =  0 ; 

Node_line*  current  =  head_line; 
if  (current->content) 

{ 

for  (i=0;  i<Nline-l;  ++i) 

{if  (ID) 

{ 

current->content->print ( ) ; 

OUt«",  ";}; 

j++; 

if  (j==l) 
j=0; 

current=current->next_line; } ; 
current->content->print ( ) ; 

} ; 

return; 

}  ; 


//Function  to  find  mean  and  standard  deviation  of  the  lengths  of  a  list 
//  of  lines 

Stat  ListLines  f ind_mean_sd_length  <) 

{ 

int  i  ; 

double  total=0.,  sd=0.,  mean  =0 . ; 

Node_line*  current  =  head_line; 
double  L; 

if  (Nline) 

{ 

for  ( i =0 ;  i<Nline;  ++i) 

{ 

L  =  current->content->length; 
total  +=  L; 
sd  +=  L*L; 

current=current->next_line; ■ 

}  ; 

mean  =  total  /  Nline; 
if  (Nline  >  1) 

sd  =  sqrt  ( (sd  -  Nline*mean*mean)  /  (Nline  -1) ) ; 
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}  ; 


Stat  meanSD  (mean,  sd,  total) ; 
return  meanSD; 

}  ; 


//  Function  to  count  the  fracture  traces  located  within  the  window  defined  by 
//  circle  circ.  Only  the  traces  with  both  ends  censored  are  considered. 

int  ListLines : :count_traces_0 (Circled  circ) 

{ 

int  n=0; 
int  i  ; 

double  min_dist; 
double  dist_inter; 

Point  inter; 

Node_line*  current=head_line; 

if (Nline) 

{ 

for(i=0;  i<Nline;  ++i) 

{ 

if ( ( ! (circ . is__point_inside (current->content->endl) ) )  && 

( ! (circ . is_point_inside (current->content->endl) ) ) ) 

{ 

inter=current->content->intersection_from_point (circ . center) ; 
min_dist=sgrt ( (inter .X-circ . center .X) * ( inter .X-circ . center .X)  + ( inter . Y- 
circ. center. Y) * ( inter. Y-circ. center. Y)  + (inter . Z-circ . center . Z) * ( inter. Z- 
circ. center. Z) ) ; 

dist_inter=sqrt ( ( inter. X-current->content->endl .X) * (inter .X-current- 
>content->endl .X)  + ( inter. Y-current->content->endl .Y) * (inter .Y-current- 
>content->endl . Y)  + (inter . Z-current->content->endl . Z) * (inter . Z-current- 
>content->endl . Z) )  ; 

if (min_dist<circ . radius  &&  dist_inter>0 .  &&  dist_inter<current->content- 
>length) 

n++ ; 

}; 

current=current->next_line; 

)  ; 

)  ; 

return  n; 

}  ; 


//  Function  to  count  the  fracture  traces  located  within  the  window  defined  by 
//  circle  circ.  Only  the  traces  with  one  end  censored  are  considered. 

int  ListLines :: count_traces_l (Circles  circ) 

{ 

int  n=0; 
int  i  ; 

Node_line*  current=head_line; 
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if (Nline) 

{ 

for(i=0;  i<Nline;  ++i) 

{ 

int  resl=circ. is_point_inside (current->content->endl) ; 
int  res2=circ . is_point_inside (current->content->end2 ) ; 
if((resl  SS  (!res2))  ||  ((!resl)  SS  res2)) 

n++ ; 

current=current ->next_l ine ; 

}  ; 

}  ; 

return  n; 

}  ; 


//  Function  to  count  the  fracture  traces  located  within  the  window  defined  by 
//  circle  circ.  Only  the  traces  with  no  end  censored  are  considered  (both  ends 
//  within  the  circle) . 

int  ListLines : :count_traces_2 (Circles  circ) 

{ 

int  n=0; 
int  i; 

Node_line*  current=head_line; 

if (Nline) 

{ 

for(i=0;  i<Nline;  ++i) 

{ 

int  resl=circ . is_point_inside (current->content->endl) ; 
int  res2=circ.is_point_inside(current->content->end2) ; 
if  (resl  ScSc  res2 ) 
n++ ; 

current =current ->next_l ine ; 

} ; 

}  ; 

return  n; 

} ; 


//  Function  to  find  the  mean  length  of  the  lines  crossing  the  polygon.  All  the 
//  lines  either  completely  cross  the  polygon  (two  intersections)  or  don't 
touch 

//  it,  since  they  are  Poisson  lines.  This  procedure  can't  be  used  with  the 
//  traces  on  an  outcrop. 

double  ListLines :: find_mean_length_on_pol (Polygons  pol) 

{ 

Node_line*  current=head_line; 
double  M=0.; 

Point  Int[2]; 
double  tot_length=0 . ; 
int  N=0 ; 
int  i,  j,  k; 

for(i=0;  i<Nline;  ++i) 

{ 


230 


if (pol . if_line_intersects ( *current->content) ) 

{ 

Point*  cur_vert=pol .head; 
k=0  ; 

for(j=0;  j<pol.noP;  ++ j ) 

{ 

Line  temp ( *cur_vert,  *cur_vert->next) ; 

if ( temp . intersect (*current->content)  &&  k<2) 

{ 

Int [k] =temp . intersection_with_line ( *current->content ) ; 
k++  ; 

}  ; 

cur_vert=cur_vert->next ; 

} ; 

N++  ; 

Line  temp_int ( Int [ 0] ,  Int[l]); 
tot_length=+  temp_int . length ; 

}  ; 

current=current->next_line ; 

}  ; 

M=  t  o  t_l eng th / N ; 
return  M; 

}  ; 


//  Function  to  find  the  mean  length  of  the  lines  crossing  the  circle.  All  the 
//  lines  either  completely  cross  the  circle  (two  intersections)  or  don't  touch 
//  it,  since  they  are  Poisson  lines.  This  procedure  can't  be  used  with  the 
//  traces  on  an  outcrop. 

double  ListLines :: find_mean_length_on_circ (Circles  circ) 

{ 

Node_line*  current=head_line; 
double  M=0.; 

Point  inter; 

double  tot_length=0 . ,  temp_length,  min_dist; 

int.N=0; 

int  i ; 

for(i=0;  i<Nline;  ++i) 

{ 

inter=current->content->intersection_f rom_point (circ . center) ; 
min_dist=sqrt ( (inter .X-circ . center .X) * ( inter .X-circ . center .X)  + (inter.Y- 
circ .center . Y) * (inter . Y-circ . center . Y)  + (inter . Z-circ . center . Z) * (inter . Z- 
circ . center . Z ) ) ; 

if (min_dist<circ . radius ) 

{ 

temp_length=2*sqrt (circ . radius*circ . radius  -  min_dist*min_dist) ; 
tot_length=+temp_length; 

N++ ; 

}? 

current=current->next_line; 

}  ; 


M=tot_length/N; 
return  M; 

}  ; 
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//NEWLY  ADDED  FUNCTION  OCT.  8,  2000 
//  removes  a  line  from  the  list 

//  used  to  edit  the  ListLines  generated  when  finding  the  intersection  lines 
//  between  polygons 

void  ListLines :: remove_line (Line  &1) 

{ 

Node_line  *p; 

for  (p=head_line;p->next_line->content ! =&1;  p=p->next_line) 

{/* 

this  does  nothing! !  we  just  need  to  get  to  the  Node_line  just  before 
the  one  that  holds  1  as  its  contents  - 
*/} 

//p  is  now  the  Node_line  just  before  the  one  that  holds  1  as  its  contents 
Node_line  *tempor=p->next_line; //  tempor  points  to  Node_line  holding  1 
p->next_line=p->next_line->next_line; //  skips  the  Node_line  holding  1 
delete  tempor; //deletes  the  removed  line!  check  this  deletion!! 


listlistpol.C 


ii  ******************************************************************* 

//*  GEOFRAC 

//  *  Copyright  Massachusetts  Institute  of  Technology  1995-1998  * 

//  *  Violeta  Ivanova,  Thomas  Meyer,  Herbert  Einstein  * 

//  *  * 
//  *  Don't  use  or  modify  without  written  permission  * 

//  *  (contact  einstein@mit.edu)  * 

II  ******************************************************************* 

#include  "listlistpol .h" 

#include  "listpol.h" 

# include  "polygon.h" 

#include  "surf ace. h" 

# include  "box.h" 

# include  "stat.h" 

#include  <math.h> 

#include  <iostream.h> 

ttdefine  PI  M_PI 
ttdefine  Half PI  (M_PI/2) 
ttdefine  TwoPI  (M_PI*2) 
extern  of stream  out; 

double  RandomOl  (); 

//  Function  to  add  a  new  list  of  polygon  to  a  list  of  lists  of  polygons 
//  as  the  new  head  list  of  the  list  of  lists. 

void  ListListPol  : :  add_listpol  (ListPolygons&  LP) 

{ 

Node_list*  new_head  =  new  Node_list; 
new_head->content  =  &LP; 
new_head->next_list  =  head_list; 
head_list  =  new_head; 

++Nlist; 

return; 

} ; 


//  Procedure  to  name  all  the  objects  of  the  list  (member  int  name_list) , 
//as  well  as  all  polygons  of  each  list  (member  int  name_list) .  The  name 
//  is  i  1<=  i  <=  Nlist. 

void  ListListPol  ::  name_list  () 

{ 

Node_list*  cur_list=head_list; 

Node*  current; 
int  i ,  j ; 


for(i=0;  i<Nlist;  ++i) 

{ 

cur_list->content->name_list=i+l ; 
current=cur_list->content->head_pol ; 


233 


for(j=0;  j<cur_list->content->Npol ;  ++j) 
{ 

curr.ent->content->name_list=i+l; 
current=current->next_pol ; 

}  ; 

cur_list=cur_list->next_list; 

} ; 

return; 

}  ; 
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listpol.C 


ii  ******************************************************************* 

//*  GEOFRAC  * 

//  *  Copyright  Massachusetts  Institute  of  Technology  1995-1998  * 

//  *  Violeta  Ivanova,  Thomas  Meyer,  Herbert  Einstein  * 

//  * 

//  *  Don't  use  or  modify  without  written  permission  * 

//  *  (contact  einstein@mit.edu)  * 

II  ******************************************************************* 

# include  "listpol.h" 
ttinclude  "polygon. h" 
ttinclude  " surface. h" 
ttinclude  "box.h" 
ttinclude  "stat.h" 
ttinclude  " listlistpol .h" 
ttinclude  <math.h> 
ttinclude  <iostream.h> 

ttdefine  PI  M_PI 
ttdefine  HalfPI  (M_PI/2) 
ttdefine  TwoPI  (M_PI*2) 
extern  of stream  out; 

double  RandomOl  (); 

//  Function  to  add  a  new  polygon  to  a  list  of  polygons  as  the 
//  new  head  polygon  of  the  list. 

void  ListPolygons  : :  add_polygon  (Polygons  pol) 

{ 

Node*  new_head  =  new  Node; 
new_head->content  =  Spol; 
new_head->next_pol  =  head_pol ; 
head_pol  =  new_head; 

++Npol ; 
return; 

} ; 

//  Function  to  add  a  new  polygon  to  a  list  of  polygons  as  the 
//  tail  polygon  of  the  list. 

void  ListPolygons  : :  add_polygon_tail  (Polygons  pol) 

{ 

Node*  current =head_pol ; 

Node*  new_tail=new  Node; 
new_tail->content=Spol ; 
new_tail->next  _pol=0; 
int  i; 

for(i=0;  i<Npol;  ++i) 

{ 

if ( current ->next_pol) 

current=current->next_pol ; 
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}  ; 

current->next_pol=new_tail ; 

++Npol ; 

return; 

} ; 


//  Procedure  to  remove  a  polygon  from  a  list  of  polygons. 

void  ListPolygons  ::  remove_from_list  (Polygons  pol) 

{ 

Node*  current=head_pol ; 

if (pol. name  ==  head_pol->content->name) 

{ 

head_pol=head_pol->next  jpol ; 

--Npol ; 

} 

else 

{ 

do 

{ 

if ( (current->next_pol)  &&  (pol. name  ==  current->next_pol->content->name) ) 

{ 

current - >next_po 1 =curren t - >next_pol - >next_po 1 ; 

--Npol; 

} 

else 

current=current->next_pol ; 

} 

while (current) ; 

} ; 

return; 

)  ; 


//  Function  to  print  a  list  of  polygons  for  non  graphical  output. 

ostreamS  operator«  (ostreamS  o,  ListPolygonsS  lp) 

{ 

o«"N  P01:  ”«lp  .Npol«endl  ; 

Node*  current  =  lp.head_pol; 
int  i  ; 

for  (i=0;  i<lp.Npol;  ++i) 

{ 

o«i+l«endl; 

o<<  ( *current->content)  «endl; 
current=current->next_pol ; 

}  ; 

return  o; 

}  ; 


236 


//  Function  to  print  a  list  of  polygons  for  graphics  output  as  mathematica 
//  code 

void  ListPolygons  ::  print ( ) 

{ 

int  i  ; 
int  j=0; 

Node*  current  =  head_pol; 
if  (current->content) 

{ 

for  (i=0 ;  i<Npol-l;  ++i) 

{ 

if  ( I  j ) 

{ 

current->content->print ( ) ; 
out« 

j++; 

if  (j==l) 
j=0; 

current=current->next _pol; }  ; 
current->content->print ( ) ; 

}  ; 

return; 

}  ; 


//  Function  to  print  the  centers  of  the  polygons  belonging  to  a  list 

void  ListPolygons  ::  center_print ( ) 

{ 

int  i; 

Node*  current  =  head_pol; 

for  ( i  =  0 ;  i<Npol;  +  +  i) 

{ 

out«current->content->name«"  "«current->content->center ,X« " 

"  <<current->content->center .  Y« "  "  «current->content->center .  Z« "  "  «current 
>content->area«"  "«current->content->strike<<”  "«current->content- 
>dip«endl  ; 

current=current->next_pol ; 

} ; 

return; 

}; 


//  Procedure  to  assign  a  name  (member  int  name)  to  each  one  of  the  polygons 
//  of  the  list.  The  name  is  equal  to  the  rank  of  the  polygon  in  the  list. 

void  ListPolygons  ::  name_pol  () 

{ 

int  i  ; 

Node*  current  =  head_pol; 

for  (i=0;  i<Npol;  ++i) 

{ 

current->content->name=i+l ; 
current=current->next_pol ; 

}  ; 
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return; 

}  ; 


//  Procedure  to  create  a  copy  of  a  list  of  polygons 

ListPolygons  ListPolygons  ::  make_copy{) 

{ 

ListPolygons*  copy  =  new  ListPolygons; 

Node*  current =head_pol ; 
copy->add_polygon ( *current->content)  ; 

int  i;  . 

for(i=0;  i<Npol-l;  ++i) 

{ 

current=current->next_pol ; 
copy->add_polygon_tail ( *current->content) ; 

}  ; 


return  *copy; 

}  ; 


//  Function  to  make  all  polygons  in  a  list  of  polygons  2d 

void  ListPolygons  make_listpol_2d  () 

{ 

Node*  current  =  head_pol; 
int  i  ; 

for  (i=0;  i<Npol;  i++) 

{current->content->make__polygon_2d  ( )  ; 
current->content->f ind_center ( ) ; 
current=current->next_pol ;  }; 

return; 

} ; 


//  Function  to  make  all  polygons  in  a  2d  list  of  polygons  3d 

void  ListPolygons  ::  make_listpol_3d  () 

{ 

Node*  current  =  head_pol; 
int  i  ; 

for  (i=0;  i<Npol;  i++) 

{ current ->content->make_polygon_3d{ ) ; 
current->content->f ind_center ( ) ; 
current=current->next_pol;  }; 
return; 

}; 
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//  Function  to  find  the  areas  and  radii  of  a  list  of  2d  polygons 

void  ListPolygons  ::  f ind_area_radius_2d  ()  { 

Node*  current  =  head__pol; 
int  i  ; 

for  ( i  =  0 ;  i<Npol;  ++i) 

{current->content->find_area_radius_2d( ) ; 
current=current->next_pol ;  }; 
return; 

}  ; 


//  Function  to  discard  the  polygons  with  bad  shape,  i.e.  only  polygons  with 
//  angles  larger  than  MinAngle  and  elongation  less  than  MaxE  are  retained 
//  in  the  list 

void  ListPolygons  : :  mark_good_shape  (double  MinAngle,  double  MaxE) 

{ 

Node*  current  =  head_pol; 
do 

{ 

if  ( (current->next_pol)  &&  ! (current->next_pol->content->if_good_shape 
(MinAngle,  MaxE) ) ) 

{  if  ( current ->next_pol ->next_pol ) 

delete  current->next_pol->content ; 
current->next_pol  =  current->next_pol->next_pol ; 

— Npol;  } 

else 

current=curren.t->next_pol; 

} 

while  (current) ; 

if ( ! (head _pol->content->if_good_shape  (MinAngle,  MaxE) ) ) 

{ 

head_pol  =  head_pol->next_pol ; 

— Npol ; 

}  ; 


return; 
}  ; 


//  Function  to  discard  all  polygons  with  bad  shape,  i.e.  only  polygons  with 
//  angles  larger  than  MinAngle  and  elongation  less  than  MaxE  are  retained 
//  in  the  list.  The  function  also  marks  the  good  polygons  with  probability  P, 
//  only  P%  of  the  good  polygons  are  kept 

void  ListPolygons  : :  mark_good_shape_and_P  (double  MinAngle,  double  MaxE, 
double  P) 

{ 
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Node*  current  =  head_pol; 
do 

{ 

if  ( (current->next_pol)  &&  ( ! (current->next_pol->content->if_good_shape 
(MinAngle,  MaxE) )  ||  RandomOl  ()  >  P) ) 

{  if  (current->next_pol->next_pol) 

delete  current->next_pol->content ; 
current->next_pol  =  current->next_pol->next_pol ; 

— Npol ;  } 

else 

current=current->next_pol ; 

} 

while  (current) ; 

if ( ! (head_pol->content->if_good_shape  (MinAngle,  MaxE))) 

{ 

head_pol  =  head_pol->next_pol; 

--Npol; 

'  }  ; 

return; 

} ; 


//  Function  to  mark  the  polygons  below  (B)  or  above  (A)  a  surface  with 
probability  P. 

//  Such  marking  decreases  P32  below  or  above  the  surface  to  P  of  P32  initial. 
0<P<1. 

void  ListPolygons  : :  mark_to_surface  (Surfaced  S,  double  P,  char  how) 

{ 

int  HOW; 

Node*  current  =  head_pol; 
do 

{ 

if  ( current ->next_pol ) 

{ 

HOW  =  S . is_point_above_below  (current->next_pol->content->center) ; 
if  ((how  ==  'A'  &&  HOW  >  0  | |  how  ==  'B‘  &&  HOW  <  0)  &&  RandomOl  ()  >  P) 

{  current->next_pol  =  current->next_pol->next_pol ; 

--Npol;  } 

else 

current=current->next__pol  ; 

} 

else 

current=current->next_pol ; 

} 

while  (current) ; 


HOW  =  S . is_point_above_below  (head_pol->content->center) ; 

if  ((how  ==  'A'  &&  HOW  >  0  | |  how  ==  'B'  &&  HOW  <  0)  &&  RandomOl  ()  >  P) 

{head_pol  =  head_pol->next_pol ; 
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— Npol; 

}  ; 

return; 

} ; 


//  Function  to  add  a  list  of  polygons  to  a  list  of  polygons.  The  main  list 
//  (which  calls  the  function)  now  contains  the  two  lists.  The  argument  list  is 
//  added  at  the  head  of  the  main  list. 

void  ListPolygons  ::  add_listpol  (ListPolygonsk  Ipl) 

{ 

if  (lpl. Npol) 

{  , 

if  ( !Npol) 

{head_pol  =  lpl  .head__pol; } 
else 
{ 

int  i ; 

Node*  current  =  lpl ,head_pol ; 

for  ( i=0 ;  i<lpl .Npol-1 ;  +  +  i) 
current=current->next  _pol; 
current ->next_pol  =  head_pol; 
head__pol  =  lpl  .head_pol; 

}  ; 

Npol  +=  lpl. Npol;  . 

}  ; 

return; 

}  ; 


//  Function  to  find  mean  and  standard  deviation  of  the  areas  of  a  list 
//  of  polygons. 

Stat  ListPolygons  ::  find_mean_sd  () 

{ 

int  i  ; 

double  total=0.,  sd=0.,  mean  =0.; 

Node*  current  =  head_pol; 
double  area; 

if  (Npol) 

{ 

for  ( i=0 ;  i<Npol;  ++i) 

{ 

area  =  current ->content->area; 
total  +=  area; 
sd  +=  area*area; 
current=current->next_jpol  ; 

}; 
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mean  =  total  /  Npol; 
if  (Npol  >  1) 

sd  =  sqrt  ( (sd  -  Npol*mean*mean)  /  (Npol  -1) ) ; 
}  ; 

Stat  meanSD  (mean,  sd,  total) ; 
return  meanSD; 

}  ; 


/ /  Function  to  find  the  WEIGHTED  average  and  standard  deviation  of  the 
//  strikes  of  a  list  of  polygons  (weight  =  area). 

Stat  ListPolygons  ::  f ind_mean_sd_strike  () 

•  { 

int  i  ; 

double  total=0 . ,  totals=0.,  sd=0.,  mean  =0.; 

Node*  current  =  head_pol; 

Stat  stat_area=find_mean_sd( ) ; 
double  str,  ar; 

if  (Npol) 

{ 

for  (i=0;  i<Npol;  ++i) 

{ 

str  =  current->content->strike; 
ar  =  current->content->area; 
total  +=.ar*str; 
totals  +=  ar*str*ar*str; 
current=current->next_pol ; 

if  (Npol  >1) 

totals  =  sqrt  ((totals  -  total*total/Npol)  /  (Npol  -1)); 
mean  =  total  /  (Npol*stat_area .Mean) ; 

sd  =  sqrt  ( totals*totals  -  stat_area . SD*stat_area . SD*mean*mean)  / 
stat_area .Mean; 

} ; 

Stat  meanSD  (mean,  sd,  total) ; 
return  meanSD; 

}  f 


//  Function  to  find  the  WEIGHTED  average  and  standard  deviation  of  the 
//  dips  of  a  list  of  polygons  (weight  =  area) . 

Stat  ListPolygons  ::  f ind_mean_sd_dip  () 

{ 

int  i  ; 

double  total=0.,  totald=0.,  sd=0.,  mean  =0.; 

Node*  current  =  head_pol; 
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Stat  stat_area=f ind_mean_sd ( ) ; 
double  dip,  ar; 


if  (Npol) 

{ 

for  ( i  =  0 ;  i<Npol;  ++i) 

{ 

dip  =  current->content->dip; 
ar  =  current->content->area; 
total  +=  ar*dip; 
totald  +=  ar*dip*ar*dip; 
current=current->next_pol ; 


}  ; 


if  (Npol  >  1) 

totald  =  sqrt  ((totald  -  total*total/Npol)  /  (Npol  -1)); 
mean  =  total  /  (Npol*stat_area .Mean) ; 

sd  =  sqrt  (totald*totald  -  stat_area . SD*stat_area . SD*mean*mean)  / 
stat_area .Mean; 

}  ; 

Stat  meanSD  (mean,  sd,  total) ; 
return  meanSD; 

}  ; 


//  Function  to  find  mean  and  standard  deviation  of  the  areas  of  a  list 
//  of  polygons.  At  this  point  polygons  that  are  too  large  are  discarded  from 
//the  list  o  f fractures. 

Stat  ListPolygons  : :  find_mean_sd  (double  meanR,  double  maxRatio) 

•  { 

int  i=0,  j=0  ; 

double  total=0.,  sd=0.,  mean  =0.; 

Node*  current  =  head_pol; 
double  area; 

cout«"  calculate  statistics  of  "«Npol«"  polygons  "«endl;  ■ 

while  (current->next__pol) 

{ 

if  ( current ->next_pol  &&  (current->next_pol->content->radius  < 
meanR*maxRatio) ) 

{ 

area  =  current->next_pol->content->area; 
total  .+=  area; 
sd  +=  area*area; 
current=current->next_pol ; 

} 

else 

{ 

current ->next_pol  =  current->next__pol->next_pol; 

--  Npol; 

}  ; 
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} ; 


if  (head_pol->content->radius  <  meanR*maxRatio) 

{ 

area  =  head_pol->content->area; 
total  +=  area; 
sd  +=  area*area; 

} 

else 

{ 

head_pol  =  head_pol->next_pol ; 

—  Npol; 

} ; 


mean  =  total  /  Npol; 
if  (Npol  >  1) 

sd  =  sqrt  ({sd  -  Npol*mean*mean)  /  (Npol  -1)  )  ; 


Stat  meanSD  (mean,  sd,  total) ; 
return  meanSD; 

}  ; 


//  Procedure  to  translate  the  polygons  in  a  list  of. polygons  in  the  vicinity 
//  of  their  original  position.  Bigger  polygons  are  translated  closer  to  the 
//  the  original  plane  than  smaller  polygons. 

void  ListPolygons  : :  translate_2d  (double  meanR,  double  ratio) 

{  . 

if (ratio) 

{ 

Node*  current  =head_pol; 
int  i ; 

for  (i=0;  i<Npol;  ++i) 

.  { 

current->content->translate_2d  (meanR,  ratio) ; 
current  =  current->next_pol; 

}  ; 

}  ; 

return; 

} ; 


//  Procedure  to  cut  a  list  of  polygons  above  of  below  a  surface.  Cuts 
//  the  polygons  only  if  they  are  intersected  by  the  surface  at  all. 

//  Retains  the  portion  above  the  surface  if  the  character  argument  is  'A' 
//  or  'a',  or  the  portion  below  the  surface  if  the  character  is  'B'  or  'b' 

void  ListPolygons  ::  cut_by_surface  (Surfaces  s,  char  how) 
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{ 

Node*  current  =  head_pol; 
int  i  ; 

for  (i=0;  i<Npol;  ++i) 

{ 

if  ( ! current->content->above_or_below_surface  (s) ) 
current->content->cut_by_surface  (s,  how); 

current  =  current->next_pol ; 


}  ; 

return; 

} ; 


//  Procedure  to  cut  a  list  of  polygons  "in  front"  or  "behind"  a  plane.  Cuts 
//  the  polygons  only  if  they'  are  intersected  by  the  plane  at  all. 

//  Retains  the  portion  in  front  of  the  plane  if  the  character  argument  is  1 F ' 
//  or  'f,  or  the  portion  behind  the  plane  if  the  character  is  ' B '  or  'b' 

//  Cutting  occurs  only  if  a  randomly  generated  number  is  smaller  than  a 
//  specified  threshold. 

void  ListPolygons :: cut_by_plane (Plane  &P,  char  how,  double  CutPr) 

{ 

Node*  current=head_pol; 
int  k; 

double  test;. 
for(k=0;  k<Npol;  ++k) 

{ 

test=Random01 ( ) ; 

if ( (current->content->if_intersects_plane  (P)  )  SS  (test<CutPr) ) 
current->content->cut_by_plane (P,  how) ; 
current=current->next_pol ; 

)  ; 

return; 

}; 


//  Two  procedure  to  cut  polygons  by  two  surfaces.  The  first  Surface  sA  has  to 
//be  above  the  second  Surface  sB  thorughout  the  extent  of  the  modeled  region 
//  i.e.  for  -Xm<x<Xm  and  -Ym<y<Ym.  The  location  of  the  center  of  every  polygon 
//  is  calculated  to  find  out  if  it  is  below  or  above  the  surfaces.  The  first 
//  function  retains  only  the  portion  of  polygons  which  is  between  the  two 
//  surfaces,  if  the  center  is  located  between  the  surfaces.  Otherwise  the 
//  polygons  are  discarded. 


void  ListPolygons  : :  cut_between_two_surfaces  (Surfaces  sA,  Surfaces  sB) 

{ 

Node*  current=head_pol ; 
int  i,  cA,  cB; 

while  (current->next__pol) 

{ 

cA  =  sA. is_point_above_below  (current->next_pol->content->center) ; 
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cB  =  sB . is_point_above_below  (current->next_pol->content->center) ; 

if  (cA<0  &S  cB>0)  //  the  center  is  between  the  surfaces 

{ 

//  retain  only  portion  below  sA 
if  ( ! current->next_pol->content->above_or_below_surface  (sA)  ) 
current->next_pol->content->cut_by_surface  (sA,  • B ' ) ; 

//  retain  only  portion  above  sB 
if  ( ! current->next__pol->content->above_or_below_surface  (sB)) 
current->next_pol->content->cut_by_surface  (sB,  'A'); 

current  =  current ->next_pol ; 

} 

else 

{  current  ->next_pol  =  current->next_pol->next__pol ; 

--Npol ;  };  } ; 


cA  =  sA. is_point_above_below  (head_pol->content->center) ; 
cB  =  sB. is_point_above_below  (head_pol->content->center) ; 

if  (cA<0  &&  cB>0 )  //  the  center  is  between  the  surfaces 

{ 

//  retain  only  portion  below  sA 
if  ( !head_pol->content->above_or_below_surface  (sA) ) 
head_pol->content->cut_by_surface  (sA,  'B'); 

//  retain  only  portion  above  sB 
if  ( !head_pol->content->above_or_below_surface  (sB)) 
head _pol->content->cut_by_surface  (sB,  'A' ) ; 

} 

else 

{ 

head_pol  =  head_pol->next_pol; 

— Npol; } ; 


return; 

}; 


//  The  second  procedure  discards  polygons  with  centers  between  the  two 
//  surfaces.  For  all  others,  only  the  portions  below  sB  or  above  sA  are 
//  retained.  sA  has  to  be  above  sB  throughout  the  modeling  volume. 


void  ListPolygons  : :  cut_outside_two_surfaces  (Surfaces  sA,  Surfaces  sB) 

{ 

Node*  current=head_pol ; 
int  i,  cA,  cB; 

while  (current->next_pol) 

{ 

cA  =  sA. is_point_above_below  (current->next_pol->content->center) ; 
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cB  =  sB . is_point_above_below  (current->next_pol->content->center) ; 
if  (cA<0  &&  cB>0 )  //  the  center  is  between  the  surfaces 

{current->next_pol  =  current->next  _pol->next_pol; 

—  Npol;  } 
else 
{ 

//  retain  only  portion  above  sA 

if  (cA>0  &&  ! current->next_pol->content->above_or_below_surface  (sA) ) 
current->next_pol->content->cut_by_surface  (sA,  'A' ) ; 

//OR  retain  only  portion  below  sB 
if  (cB<0  &&  ! current->next_pol->content->above_or_below_surface  (sB) ) 
current->next_pol->content->cut_by_surface  (sB,  'B'); 

current  =  current->next  _pol; 

}  ; 

}  ; 


cA  =  sA. is_point_above_below  (head_pol->content~>center) ; 
cB  =  sB . is_point_above_below  (head_pol->content->center) ; 

if  (cA<0  &&  cB>0 )  //  the  center  is  between  the  surfaces 

{head_pol  =  head_pol->next_pol; 

--  Npol;  } 
else 
{ 

//  retain  only  portion  above  sA 
if  (cA>0  &&  !head_jpol->content->above_or_below_surface  (sA)) 
head_pol->content->cut_by_surface  (sA,  'A'); 

//OR  retain  only  portion  below  sB 
if  (cB<0  &&  !head_pol->content->above_or_below_surface  (sB) ) 
head_pol->content->cut_by_surface  (sB,  1 B ' ) ; 

}  ; 


return; 


}  ; 


//  Procedure  to  find  the  shortest  distance  from  a  polygon  pol  in  3d  to  a 
member 

//  of  a  list  of  polygons. 

double  ListPolygons  : :  shortest_distance_from_polygon  (Polygons  pol) 

{ 

double  distance  =  head_pol->content->distance_from_polygon  (pol) ; 

Node*  current  =  head_pol->next_pol ; 
int  i  ; 

double  temp; 

for  (i=l;  i<Npol;  ++i) 
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{ 

temp  =  current->content->distance_f rom_polygon  (pol); 
if  (temp  <  distance) 

distance  =  temp; 
current  =  current->next  _pol; 

}  ; 


return  distance; 

} ; 


//  Procedure  to  split  the  main  list  of  polygons  into  sub-networks.  Each 
//  sub-network  is  stored  in  a  list  of  polygons  that  is  then  added  to  the 
//  main  list  of  lists  of  polygons.  This  latter  is  returned. 

ListListPol  ListPolygons  ::  split_into_networks ( ) 

{ 

ListListPol*  Net=new  ListListPol; 

ListPolygons*  Isolated_pol=new  ListPolygons; 

Node*  current=head_pol ; 

Node*  temp; 
int  i=0; 

cout«" Fracture  considered:  "«endl; 
do 

{ 

cout«i  +  l« "  / "  «Npol«endl  ; 

ListPolygons*  Sub_net=new  ListPolygons; 
Sub_net->add__polygon(*current->content); 
temp=current->next_jpol  ; 
remove_from_list ( *current->content) ; 
current=temp ; 

Node*  current_sub; 
current_sub=Sub_net->head_pol ; 

if(Npol) 

{ 

do{ 

Node*  current_int; 
current_int=head_pol ; 
do 

{ 

if (current_int->content->if_polygon_intersects ( *current_sub->content) 
| |  current_sub->content->if_polygon_intersects (*current_int->content) ) 

{ 

Sub_.net ->add_polygon_tail ( *current_int->content) ; 
temp=current_int->next  _pol; 

if (current->content->name  ==  current_.int->content->name) 
current =temp; 

remove_f rom_list ( *current_int->content) ; 
current_int=temp ; 

> 

else 

current_int=current_int->next_pol ; 

} 

while (current_int) ; 
current_sub=current_sub->next_pol ; 
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} 

while  (current_sub) ; 

}  ; 

if (Sub_net->Npol==l) 

Isolated_pol->add_polygon ( *Sub_net->head_pol->content) ; 
else 

Net->add_listpol (*Sub_net) ; 

++i; 

} 

while (current) ; 

Net->add_listpol (*Isolated_pol) ; 
return  *Net; 

}  ; 


//  Procedure  to  compute  the  maximum  extent  of  a  sub-network  in  direction  x 
//  ( j=l) ,  y  (j=2)  or  z  (j=3) .  It  corresponds  to  the  measures  C8x  developed 
//  by  Dershowitz  (1986) .  The  maximum  distance  between  fracture  centers  is 
//  considered. 

double  ListPolygons  ::  find_c8(int  j) 

{ 

Node*  current; 
int  i  ; 

double  cmin,  cmax,  cdist=0.; 

cmax=head_pol->content->f ind_max_coord ( j ) ; 
cmin=cmax; 

current=head__pol->next_pol  ; 
for  ( i=0 ;  i<Npol-l;  ++i) 

{ 

if (cmax  <  current ->content->f ind_max_coord( j ) ) 
cmax=current->content->find_max_coord( j ) ; 
if (cmin  >  current->content->find_min_coord( j ) ) 
cmin=current->content->f ind_min_coord ( j ) ; 

current=current->next_pol ; 

cdist=cmax-cmin; 

return  cdist; 

}  ; 

//NEWLY  ADDED  FUNCTION  OCT.  8,  2000 

//creates  a  list  of  lines  of  intersections  for  each  network 

//  we  need  to  create  a  list  of  intersection  lines  in  the  order  that 

//  they  are  connected. 

//  MAKE  SURE  THE  LINES  ARE  IN  3-D! ! ! i 

ListLines&  ListPolygons: :make_list_of_intersections ( ) 

{ 

ListLines  *intersection_list=new  ListLines; 

Node  *p=head_pol; 

Node  *pr; 
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forfint  i=0;  i<Npol-l;  i++) 

{ 

pr=p->next_pol ; 

for(int  j  =  0 ;  j<Npol-i-l;  j++) 

{ 

if  (p->content->if_polygon_intersects (* (pr->content) ) ==TRUE 
>content->if__polygon_intersects (* (p->content) ) ==TRUE) 

{ 

cout«"  \n\npolygon  l:\n"; 
cout«*  (p->content)  ; 
cout«"polygon  2:\n"; 
cout«*  (pr->content)  ; 

intersection_list->add_line ( (p->content- 
>line_of_intersection_with_polygon ( * (pr->content) ) ) ) ; 

} 

pr=pr->next_pol ; 


} 

p=p->next_pol; 

} 

cout«" returning  *intersection_list\n"  ; 
return  *intersection__list; 

}  ; 


pr 
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main.C 


ii  ******************************************************************* 

//*  GEOPRAC  * 

//  *  Copyright  Massachusetts  Institute  of  Technology  1995-1998  * 

//  *  Violeta  Ivanova,  Thomas  Meyer,  Herbert  Einstein  * 

//  *  * 

//  *  Don't  use  or  modify  without  written  permission  * 

//  *  (contact  einstein@mit.edu)  * 

/I  ******************************************************************* 

# include  <math.h> 

#include  <stdio.h> 

# include  <iostream.h> 

#include  <fstream.h> 

ttinclude  <stdlib.h> 

# include  < sys/ types .h> 

# include  <time.h> 

# include  <unistd.h> 

#def ine  PI  M_PI 

#def ine  Half PI  (M_PI/2) 

#def ine  TwoPI  (M_PI*2) 

#define  max(a,b)  ((a)  >  (b)  ?  (a)  :  (b) ) 

#define  min(a,b)  ((a)  <  (b)  ?  (a)  :  (b) ) 

double  Xm,  Ym;  //'  Lateral  boundaries  of  the  volume 

int  Nsets;  //  No.  of  fracture  sets 

double  A,  B,  C,  D,  E,  F;  //  Top  surface  of  modeling  volume 

double  mA,  mB,  mC*  mD,  mE,  mF,  mG,  mH,  ml,  mJ;  //  Cubic  surface  of  the  fold 

double  oAv,  oBv,  oCv,  oDv; 

double  oAh,  oBh,  oCh,  oDh; 

double  bXl,  bX2,  bYl,  bY2,  bZl,  bZ2; 

double  bFkl,  bFk2,  Fk,  MaxPhi; 

double  TRatio; 

double  AngleMin,  elongation; 

double  angleR,  angleC,  angleNew; 
double  ratioR,  ration- 

double  MeanArea,  MeanA; 

double  AT; 

of stream  out; 

char  strike,  dip; 

double  angleD,  angleDip,  ratioD; 

double  ratioMA,  CA,  gama; 

double  Zmin; 

ttdefine  xl(a,  b,  f)  (-b+sgrt (f ) ) / (2*a) 
idefine  x2 (a,  b,  f)  (-b-sqrt(f ) ) / (2*a) 


#include  "polar. h" 
#include  "cartesian. h" 
# include  "point.h" 
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# include  "line.h" 

#include  " surf ace. h" 

# include  "box.h" 

#include  "circle. h" 

#include  "volume. h" 

#include  "plane. h" 

#include  "polygon. h" 

#include  "listpol.h" 

#include  "listlistpol .h" 

#include  "listline. h" 

#include  "borehole .h" 

#include  "stat.h" 

time_t  time(time_t  *tloc) ; 

double  RandomO 1 ( ) ; 

double  RandomOa (double) ; 

double  RandomBC (double  ,  double); 

double  exp_value  (double) ; 

int  PoissonN  (double,  double) ; 

Polar  ran_uniform_orientation ( ) ; 

Polar  uni form_max_phi_orient (double) ; 

Polar  constant_orientation ( ) ; 

Polar  Fisher_orientation  (double) ; 

Polygon  make_initial  (Plane&,  Volumes) ; 

ListPolygons  Poisson_lines_on_polygon  (Polygons  ,  double) ; 

ListLines  Poisson_lines_on_pol  (Polygon&  ,  double) ; 

int  Np ; 

int  sizeNpdf; 

double  maxR; 

double  Datum; 

char  folding; 

int  Nboreholes; 

char  is_box; 

char  sn; 

char  gF,  gH,  gV,  cF,  cH,  cV; 

main  ( ) 

{ 

srandftime (0)  *  getpidO); 
int  i  ; 

/********************************************************************* 

*  INPUT  OF  MODELING  VOLUME  FROM  FILE  "INPUT"  * 

*****************************************************************★***/ 
ifstream  in  ("INPUT"); 
if  ( ! in) 

cout«"cannot  open  file"«endl; 
in»Xm»Ym;  //  Extent  of  rectangular  area 

in»Datum;  //  Datum  (Z=0)  is  bottom  surface  of  modeling  volume 

in»A>>B»C>>D»E»F;  //  Top  surface 


//  INPUT  OF  TYPE  OF  MODEL  MARKING 

in»ratioMA>>maxR;  //  Coefficients  of  the  model  plane, 

//  and  marking  processes 


in»CA»gama  ; 


line, 
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in»Nsets  ; 


//  Number  of  fracture  sets 


in»folding; 

//  Graphical  output:  gF  for  3D  system;  gH  for 

//  outcrop  plane;  gV  for  vertical  outcrop  plane 
//  Coordinate  output:  cF  for  3D  system;  cH  for 

//  traces;  gV  for  vertical  traces 

in»oAv>>oBv>>oCv»oDv;  //  profile  outcrop  plane 

in»oAh»oBh»oCh>>oDh;  //  plan  view  outcrop  plane 

in»Nboreholes ;  //  Number  of  boreholes  desired 

in»is_box;  //Has  to  be  y  or  V  if  a  computing  box  is  desired 

in»sn;  //  Has  to  be  y  or  Y  if  the  subdivision  into 

//  sub-networks  is  desired 

//  Np  is  the  number  of  points  on  the  top  surface 
//  Maximum  azimuth,  if  uniform  orientation 
//  Fisher  constant,  if  Fisher  orientation 
//  Minimum  allowed  angle  for  polygon  shapes 
//  Maximum  allowed  elongation  of  polygons 
//  Relationship  to  strike:  C (oncentric) ,  R(adial) 
//  maximum  angle  and  ratio  between  strike  of 
//  polygon  and  slope  of  surface 
//  maximum  angle  and  ratio  between  strike  of 
//  polygon  and  strike  of  surface 
//  new  maximum  angle  between  strike  of  polygon 
//  and  strike  (or  slope)  of  surface 


in»sizeNpdf ; 

int  Nsize_int  [sizeNpdf+1] ; 
double  sizeMax  [sizeNpdf] ; 

for  ( i=0 ;  i<sizeNpdf;  ++i) 
{Nsize_int [i]  =  0; 
in>>sizeMax[i] ;}; 
Nsize_int [sizeNpdf ]  =  0; 


Polar  MeanP [Nsets] ; 
double  Fraclnt [Nsets] ; 
char  pdf [Nsets] ; 
double  MeanR [Nsets] ; 
double  Ca [Nsets ]; 
double  TRatio [Nsets] ; 
int  Nzones [Nsets] ; 
int  Nfaults [Nsets]; 


m»Np; 

in»MaxPhi ; 

in»Fk; 

in>>AngleMin; 

in»elongation; 

in»strike,- 

in»angleR»ratioR; 

in»angleC»ratioC  ; 

in»  ang  1  eNew  ; 

in»dip; 

in»angleD>>ratioD; 
in>>angleDip ; 


in»gF>>gH»gV; 

horizontal 

in»cF»cH»cV; 

horizontal 
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char  ZoneType [Nsets] ; 
int  totnz ; 
int  maxnz ; 


//  INPUT  OF  PARAMETERS  FOR  INDIVIDUAL  FRACTURE  SETS 


for  (i=0;  i<Nsets;  ++i) 

{ 

in»FracInt  [i]  ;  // 

in»MeanP[i]  .theta»MeanP[i]  .phi; 
in>>pdf[i];  // 

in»TRatio [i]  ;  // 

in»MeanR  [  i  ]  ;  /  / 

in»ZoneType  [i]  ;  // 

in»Nzones  [i]  ;  // 


Fracture  intensity:  cum  frac  area  /  volume 
//  Mean  oorientation  of  the  set 
Spherical  orientation  PDF 
Translation  (non-coplanarity) 

Mean  radius 

Type  of  zone  markiing  (Fault  or  Box) 

Number  of  probability  marking  zones 


}  ; 

in. close ( )  ; 


*  CREATING  THE  MODELING  VOLUME  * 


Surface  ground  (A,  B,  C,  D,  E,  F) ;  //  Topographic  surface 

Volume  rock  (ground) ;  //  Modeling  volume  over  area  Xm,  Ym 

double  VOLUME  =  ground. f ind_enclosed_volume  (Xm,  Ym) ; 

Zmin=rock. corner_min_z ( ) ; 

double  Rmax  =  sgrt(Xm*Xm  +  Ym*Ym  +  rock. Zmax*rock. Zmax) ; 
double  Zm; 

cout« "Number  of  fracture  sets  "«Nsets«endl; 


//  CREATING  FOLD  IF  ANY 
Cubic  fold; 

if  (folding  ==  'y'  ||  folding  ==  ' Y ' ) 

{ 

in . open  ( " FOLD "); 

in»fold.  A» fold. B» fold. C»f old. D>> fold. E>> fold.  F» fold. G» fold. H>> fold.  I>>fo 
Id.  J; 

//  Input  of  the  cubic  surface  of  a  fold 

in. close ( ) ; 

}; 


/★****★★*★*********★******★*★★****★*■**********★****★**★•*★**★***★**★★*★★* 

*  INPUT  OF  FRACTURE  ZONES  (if  any)  FROM  FILE  "ZONES"  * 

*  Zones  are  defined  according  to  either  faults  and  distance  * 

*  or  to  boxes  * 

********************************  *  *  *************************************/ 

int  n; 
totnz=0; 
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maxnz=0 ; 


for(n=0;  n<Nsets;  ++n) 

{ 

totnz+=Nzones [n] ; 

if (maxnz  &&  (Nzones [n] >maxnz ) ) 
maxnz=Nzones [n] ; 
if ( ! maxnz ) 

maxnz=Nzones [n]  ; 

}  ; 

if(maxnz==0) 

maxnz=l; 

ListPolygons  faults [Nsets] ; 
double  Distances [Nsets] [maxnz-1] ; 
double  Marks [Nsets] [maxnz]; 
double  FaultCut [Nsets] ; 

Box  Zone_Box [Nsets] ; 

Point  BoxCorner[8] ; 

Box  Comp_Box; 
double  xx,  yy,  zz; 

int  j ,  k; 

if (totnz>0) 

{ 

in. open ( "ZONES" )  ; 
if ( ! in) 

cout«"cannot  open  file"«endl; 

for ( i=0 ;  i<Nsets;  ++i) 

{ 

if ( ZoneType [i] == ' B 1  ||  ZoneTypefi] =='b' ) 

{ 

Point  TmpCorn[8]; 
for(j=0;  j<Nzones [ i] ;  ++ j ) 

in»Marks  [i]  [  j  ]  ;  //  Mark  probability:  ratio  of  intensity 

//  in  the  zone  to  the  greatest 
//  intensity  of  the  fracture  sets 

for( j=0;  j<8 ;  ++j) 

in»TmpCorn [  j  ]  .X»TmpCorn [  j  ]  .  Y»TmpCorn  [  j  ]  .  Z;  //  Corners  of  the  box 

Zone_Box [ i ] =Box ( TmpCorn [ 0 ] , TmpCorn [ 1 ] , TmpCorn [ 2 ] , TmpCorn [ 3 ] , TmpCorn [ 4 ] , TmpCorn 
[ 5 ] , TmpCorn [ 6 ] , TmpCorn [ 7 ] )  ; 

in»FaultCut  [i]  ;  //  Cutting  probability 

in»Nfaults  [i]  ;  //  Number  of  faults 

if (Nfaults [i] >0) 

{ 

for(j=0;  j<Nfaults [i] ;  ++j) 

{ 

Polygon  pol; 
int  N; 

in»N;  //  Number  of  vertices  defining  a  fault 

for(k=0;  k<N;  ++k) 

{ 

in>>xx»yy»zz ;  //  Coordinates  of  fault  vertices 
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Point*  P=new  Point (xx,yy, zz) ; 
pol . add_point ( *P) ; 

}  ; 

Polygon*  new_pol=new  Polygon; 

*new_pol=pol; 

faults [i] . add_polygon ( *new_pol) ; .  //  Adding  the  fault  to  the  list 
} ; 

}  ; 

}  ; 

if ( (ZoneType [ i] == ' F '  ||  ZoneType [ i ] == ' f ' )  &&  Nzones[i]>0) 

{ 

for(j=0;  j<Nzones [i] -1;  ++ j ) 

in»Distances  [i]  [  j  ]  ;  //  Distances  that  define  the  zones 

for(j=0;  j<Nzones[i];  ++ j  ) 

in»Marks  [ i]  [  j  ]  ;  //  Mark  probability:  ratio  of  intensity 

//  in  the  zone  to  the  greatest 
//  intensity  of  the  fracture  sets 
in»FaultCut  [i]  ;  //  Cutting  probability 

in>>Nfaults [ i] ;  //  Number  of  faults 

for(j=0;  j<Nfaults [i] ;  ++ j ) 

{ 

Polygon  pol; 
int  N; 

in»N;  //  Number  of  vertices  defining  a  fault 

for(k=0;  k<N;  ++k) 

{ 

in»xx»yy>>zz ;  //  Coordinates  of  fault  vertices 

Point*  P=new  Point(xx,yyyzz); 

pol .add_point (*P) ;  . 

} ; 

Polygon*  new_pol=new  Polygon; 

*new_pol=pol ; 

faults [i] . add_polygon ( *new_pol) ;  //  Adding  the  fault  to  the  list 

}  ; 

}  ; 

} ; 

//Creating  the  computing  box,  if  any 

if (is_box== 'y '  ||  is_box=='Y') 

{ 

for ( j  =0 ;  j<8 ;  ++ j ) 

in»BoxCorner  [  j  ]  .X»BoxCorner  [  j  ]  .  Y»BoxCorner  [  j  ]  .Z; 

Comp_Box=Box ( BoxCorner [ 0 ] , BoxCorner [ 1 ] , BoxCorner [ 2 ] , BoxCorner [ 3 ] , BoxCorner [ 4 ] , 
BoxCorner [ 5 ] , BoxCorner [ 6 ] , BoxCorner [ 7 ] ) ; 

}  ; 

in. close ( )  ; 

}; 

^**********-*************************,*r********************'*r**-A-****'**** 

*  CREATING  OUTCROP  PLANES  _  * 

★  ***★**★**********★****★*★**★**★**■*'****★***■**★★*****★★★★***★*****■***  j 


II  VERTICAL  OUTCROP  PLANE 
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Plane  profile  (oAv,  oBv,  oCv,  oDv) ; 

Polygon  outPolV  =  make_initial (prof ile,  rock) ; 
outPolV.make_polygon_2d( ) ; 
outPolV. sort_points_2d ( ) ; 
outPolV.make_polygon_3d( )  ; 

Zm  =  2*(rock.Zmax  /  sin(profile.dip) )  ; 

outPolV.add_points_on_surface  (profile,  rock. top,  Np,  Zm)  ; 
Circle  cirV=prof ile . circle_on_vertical ( ) ; 


//  HORIZONTAL  OUTCROP  PLANE 

Plane  plan  (oAh,  oBh,  oCh,  oDh) ; 

Polygon  outPolH  =  make_initial (plan,  rock); 
outPolH . make_polygon_2d ( ) ; 
outPolH . sort_points_2d ( ) ; 
outPolH.make_polygon_3d( ) ; 

Circle  cirH=plan. circle_on_horizontal ( ) ; 


//  3D  VIEW  OF  THE  OUTCROP  PLANES 

out . open ( " OUTCROPS . m" ) ; 
out« "  Show  [  "  ; 
outPolV. print ( )  ; 
out<<" ,  " ; 
outPolH . print ( ) ; 
out« "  ]  " ; 

out . close ( ) ; 


*  GENERATION  OF  FRACTURE  SETS  * 


ListPolygons  FracSet[i]; 

ListPolygons  FracSys; 

Stat  meanSD; 
double  P32; 

out . open  ( " FRAC . txt " ) ; 
out« "MARKING  RULE" «endl ; 

out«"Mark:  >  "<<ratioMA«"  and  <  "«maxR«"  Gama:  "«gama«"  CA: 
"<<CA«endl; 

out<< "angleR — ratioR — angleC — ratioC--strike--angleNew  :  "«endl ; 
out«angleR«"  "«ratioR«"  "«angleC«”  "«ratioC«"  "«strike«" 

"  «angleNew«endl  ; 
out . close ( ) ; 

for  (i=0;  i<Nsets;  ++i) 

{ 

int  counter  =  1; 

double  Mu  =  Fraclnt [i] /gama;  //  Intensity  of  Poisson  plane  network 

double  expD  =  exp_value (Mu) ; 
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double  planeD  =  -Rmax+expD; 

MeanA  =  PI*MeanR[i] *HeanR[i] ; 
cout«MeanR  [  i  ]  << "  "  «MeanA«endl  ; 

MeanArea  =  MeanA/CA; 

double  intensity  =  sqrt (PI/ (MeanArea) ) ; 

cout«" Fracture  set  "«i  +  l«endl; 

out . open  ( " FRAC . txt ",  ios : : app ) ; 
out«endl«" FRACTURE  SET  "«i+l«endl; 

out«" Expected  fracture  intensity  :  "«FracInt  [ i]  «endl ; 
out«"  Plane  intensity  :  "«Mu«endl; 

out«"Exp.  radius-Exp.  area  :  "«MeanR[i]«"  "«MeanA«endl ; 
out«"Line  intensity  :  "<<intensity«endl; 
out. close ( )  ; 


//  GENERATION  OF  THE  FRACTURE  PLANES  OF  A  FRACTURE  SET 

while  (planeD  <  Rmax) 

{ 

ListPolygons*  FracPlane  =  new  ListPolygons; 
cout«"  set  "«i+l«"  plane  "«counter«endl ;' 

Plane  p  (pdf[i],  MeanP[i],  planeD); 

Polygon  temp  =  make_initial (p,  rock); 

if  (temp.noP  >2) 

{ 

Polygon*  pol  =  new  Polygon; 

*pol  =  temp; 

pol->make_polygon_2d( ) ; 
pol->sort  _points_2d() ; 
pol->make  _polygon_3d ( ) ; 

Zm  =  2*(rock.Zmax  /  sin(p.dip)); 

pol->add_points_on_surface  (p,  rock. top,  Np,  Zm) ; 
pol->area_radius_3d  (); 


//  PLOT  PRIMARY  PLANE  PROCESS 
//out. open  ( "PRIMARY. m" ,  ios::app); 
//out«"Show  [  "; 

//pol->print ( ) ; 

//out<<"]  "«endl«endl;  ; 

//out . close ( ) ; 


pol->make __polygon_2d  ( )  ; 
double  InitialA  =  pol->area; 


//  TESSELLATION  OF  A  FRACTURE  PLANE  INTO  POLYGONS 

*FracPlane  =  Poisson_lines_on_polygon  (*pol,  intensity); 
cout<< "before  mark  "<<FracPlane->Npol«endl ; 
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//  PLOT  SECONDARY  PROCESS:  TESSELLATION 
//FracPlane->make_listpol_3d( ) ; 

//out. open  ( "TESSELLATION. m" ,  ios::app); 
//out«"Show  [ 

/ /FracPlane->print ( )  ; 

//out«"]  "«endl; 

//out .close ( )  ; 

/ /FracPlane->make_listpol_2d ( ) ; 


//  MARKING  OF  POLYGONS  WITH  GOOD  SHAPE:  -40%  of  the  TOTAL  AREA 

FracPlane->mark_good_shape (AngleMin,  elongation) ; 
cout«"after  mark  "«FracPlane->Npol<<endl ; 

//FracPlane->make_listpol_3d( ) ; 

//out. open  ( "MARKING. m" ,  ios::app); 

//out«"Show  [  "  ; 

/ /FracPlane->print ( )  ; 

//out«"]  "«endl; 

//out . close ( )  ; 

//FracPlane->make_listpol_2d( ) ; 


//  TRANSLATION 

FracPlane->translate_2d  (MeanR[i] ,  TRatio[i]); 


//  ZONE  MARKING  OF  POLYGONS  FOR  DIFFERENT  ZONE  FRACTURE  INTENSITY 

FracPlane->make_listpol_3d ( ) ; 

double  Dist [maxnz-1] ; 
double  Mar[maxnz]; 

if  ( (ZoneType [i] == ' B '  ||  ZoneType [i] == 'b' )  &&  FracPlane->Npol) 

{ 

for(j=0;  j<Nzones[i];  ++j.) 

Mar [ j ] =Marks [ i ] [ j ] ; 

FracPlane->mark_by_box (Zone_Box [ i] ,  Mar) ; 

cout« "After  marking  by  zones  "«FracPlane->Npol«"  fractures "«endl; 

}  ; 

if  ( (ZoneType [i] ==' F 1  ||  ZoneType [i] ==' f 1 )  &&  FracPlane->Npol  &&  Nzones[i]  && 

Nfaults [i] ) 

{ 

for(j=0;  j<Nzones [i] -1;  ++ j ) 

Dist [ j ] =Distances [ i ]  [  j ] ; 
for(j=0;  j<Nzones[i];  ++ j ) 

Mar [ j ] =Marks [ i ] [ j ] ; 

FracPlane->mark_by_zones (faults [i] ,  Nzones[i],  Dist,  Mar)  ; 
cout«"After  marking  by  zones  "«FracPlane->Npol«"  fractures "«endl; 

}  ; 
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if  (FracPlane->Npol) 

FracSet[i] . add_listpol ( *FracPlane) ; 
else 

delete  FracPlane; 

cout«" total  ''« (FracSet  [i]  .Npol+FracSys.Npol)«endl; 

}  ; 


expD  =  exp_value  (Mu) ; 
planeD  +=  expD; 

++  counter; 


};  //  End  of  line  tessellation  for  one  plane 

//  CUTTING  OF  FRACTURES  BY  FAULTS  LIMITING  THE  SET'S  ZONE 

if (totnz>0) 

{ 

Node*  cur_jpol=faults  [i]  .head_pol; 
cout«"Cutting  Set  "«i+l«endl; 
for(j=0;  j<Nfaults [i] ;  ++ j ) 

{ 

Polar  Ppole=  cur_pol->content->Pole; 

Point  Ppoint=  * (cur_pol->content->head) ; 

Polar  Pmean_pole (0 . ,  0.); 

Plane  Pl(Ppole,  Pmeanjiole,  Ppoint) ; 

FracSet [i] . cut_by_plane (Pi,  'F',  FaultCut [i] ) ;  //Keeps  everything 
that's  in  FRONT 

cur_pol=  cur_pol->next_pol ; 

}; 

)  ; 


FracSys . add_listpol  (FracSet [i] ) ; 

};  //  End  of  generation  of  one  fracture  set 


//  NAMING  THE  POLYGONS 

//  (name  is  their  rank  in  the  list) 

FracSys . name_pol ( ) ; 

/ /DTERMINING  THE  PROPERTIES  OF  THE  FRACTURE  SYSTEM 

double  Radius  =  sqrt  (MeanA/PI) ; 

meanSD  =  FracSys . find_mean_sd{ Radius,  maxR) ; 

P32  =  meanSD. total  /  VOLUME; 

//  DETERMINING  THE  PROPERTIES  OF  THE  FRACTURE  SYSTEM  INSIDE  THE 
//  COMPUTING  BOX  (if  any) 

ListPolygons  FracSys_Box; 
double  P32_Box=0.; 

Stat  meanSD_Box; 

if (is_box== 'y '  ||  is_box=='Y') 

{ 
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Node*  cur_pol=FracSys.head_pol; 
for(j=0;  j<FracSys .Npol;  ++ j ) 

{ 

if (Comp_Box. is_point_inside (cur_pol->content->center) ) 
FracSys_Box.add_polygon{* (cur_pol->content) ) ; 
cur_pol=cur_pol->next_pol ; 

}  ; 

meanSD_Box=FracSys_Box . f ind_mean_sd ( ) ; 

P3 2_Box=meanSD_Box . total /Comp_Box . volume ; 

}  ; 


//  OUTPUT  OF  PROPERTIES  (File  FRAC.txt) 

out . open  ( " FRAC . txt ",  ios : : app ) ; 
out«endl« "MODELLING  VOLUME" «endl ; 

out«"Mean — SD--Total — N — P32  :  "«meanSD«"  "«FracSys  .Npol«"  "«P32«endl; 
out« 11  Mean/ expected- - SD/Mean  :  "«meanSD.Mean/MeanA«"  "«meanSD.SD  / 
meanSD . Mean 
«endl  ; 

out«endl« "COMPUTING  BOX"«endl ; 

out«"Volume--Mean — SD— Total — N — P32  :  "«Comp_Box.volume«"  " «meanSD_Box« “ 
" «FracSys_Box . Npol« "  "<<P32_Box«endl«endl; 
cout«" Finished  calculating  statistics  "«endl; 
out . close  ( ) ; 


ListLines  tracesH; 

ListLines  tracesV; 

ListLines  faultsH [Nsets] ; 

ListLines  faultsV [Nsets] ; 

//  GRAPHICAL  OUTPUT  BEFORE  ROTATION 

/ /out . open  ( " FRACTURES . m" ,  ios : : app) ; 
//out«"Show  [ 

//FracSys .print ( )  ; 

//out«'!]  "«endl; 

//out. close ( ) ; 

//  VERTICAL  OUTCROP  in  a  file  " PROFILE. m" 
//tracesV  =  FracSys . traces_on_plane (prof ile) ; 

/ /out . open  ( " PROFILE .m"); 

//out«"Show  [ 

//outPolV. print ( ) ; 

//out<<", 

/ /tracesV. print ( ) ; 

//out«"]  "«endl«endl ;  ; 

//out. close ( ) ; 

//HORIZONTAL  OUTCROP  in  a  file  "PLAN.m" 
//tracesH  =  FracSys . traces_on_plane (plan) ; 

//out. open  ("PLAN.m"); 

//out«"Show  [ 

/ /outPolH . print ( )  ; 

//out«", 
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//tracesH. print ( ) ; 

/  /out<< "  ]  "«endl<<endl ;  ; 
//out . close ( )  ; 


/******************************************************************** 

*  ROTATION  OF  FRACTURES  TO  BETTER  FIT  SURFACE  STRIKE  AND  DIP  * 

********************************************************************/ 

//  RADIAL  AND  CONCENTRIC  FRACTURES  WITH  ONE  OF  THE  ORIENTATIONS  PREFERRED 

if  (folding  ==  'y'  ||  folding  ==  'Y') 

{ 

if  (  strike  ==  'r'  ||  strike  ==  'c') 

FracSys .mark_by_s trike  (fold,  angleR,  angleC,  angleNew,  strike,  ratioR, 
ratioC) ; 

if  (dip  ==  ' d ' ) 

FracSys . mark__by_dip  (fold,  angleD,  angleDip,  ratioD) ; 

} ; 


/******************************************************************** 

*  SIZE  DISTRIBUTION 

********************************************************************/ 

out. open  ("SIZE.txt"); 

out«"Mean--SD--Total--N — P32  "«meanSD«"  "«FracSys .Npol«"  "«P32«endl; 
out« "Mean/expected  mean--SD/Mean  "«meanSD.Mean/MeanA«"  "ccmeanSD.SD  / 
meanSD .  Mean«endl«endl  ; 

FracSys . size__distribution  (sizeNpdf,  Nsize_int,  sizeMax,  meanSD. Mean ) ; 
for  (j=0;  j<sizeNpdf ;  ++ j ) 

out«sizeMax[j]«"  "«Nsize_int  [  j  ] «endl ; 
out«Nsize_int  [sizeNpdf  ]  «endl«endl ;  ; 
out . close ( )  ; 


***************************************************************** 
*  INTERSECTION  WITH  BOREHOLE (S)  IF  DESIRED 

********************************************************************  j 

if  (Nboreholes) 

{ 

in . open  ( " BOREHOLE " ) ; 

for  ( i=0 ;  i<Nboreholes;  ++i) 

{ 

in>>bXl»bYl>>bZl»bX2»bY2»bZ2 ;  //  borehole 

//  INTERSECTIONS  WITH  A  BOREHOLE 
Point  PI  (bXl ,  bYl ,  bZl)  ; 

Point  P2  (bX2 ,  bY2 ,  bZ2) ; 

Line  boreL  ( PI ,  P2 )  ; 

Borehole  BoreLine  =  FracSys . intersections_with_logline  (boreL); 

Stat  boreMSD  =  BoreLine . f ind_mean_sd_spacing (); ' 
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if  (BoreLine.Nfrac) 

{ 

if  ( ! i) 

{ out . open  ( " BORE . txt " ) ; } 
else 

out. open  ("BORE.txt",  ios::app); 
out<<endl<<endl<< "Next  borehole  "<<endl; 
out<<BoreLine ; 

out<<" SPACING  mean — sd — boreline  length  "«boreMSD«endl ; 
out . close ( ) ; 

cout«"  Borehole  calculated  "«endl; 

out . open  ( " FRAC . txt ",  ios : : app ) ; 
out«"  SPACING  along  borehole  "«i+l«endl; 
out«"mean--sd--boreline  length  "«boreMSD<<endl; 
out . close ( ) ; 

if  ( ! i) 

{out. open  ( "BORE .m" ) ; } 
else 

out. open  ("BORE.m",  ios: : app); 
out« "  Show  [  " ; 

BoreLine .print ( )  ; 
out« "  ]  "  ; 

out .close ( ) ; 


} ; 

}  ; 

in. close  ( ) ; 

}; 

/***************************************************************** 
*  SUBDIVISION  OF  FRACTURE  SYSTEM  INTO  SUB-NETWORKS  * 

********************  *  *  *********************  *  *  *******************  j 

if  (sn  ==  ' Y'  ||  sn  ==  ' y ' ) 

{ 

ListPolygons  FracSys_copy=FracSys .make_copy ( ) ; 
cout«"  Subdividing  into  networks ...  "<<endl  ; 

ListListPol  Networks; 

Networks=FracSys_copy . split_into_networks ( ) ; 

Networks ,name_list ( ) ; 

Node_list*  cur_list=Networks ,head_list; 

cout«"There  are:  "«Networks  .Nlist«"  sub-networks "«endl; 

//  NEWLY  ADDED  SECTION  OCT.  25,  2000 

//  CREATION  OF  THE  LIST  OF  INTERSECTION  LINES '.FOR  EACH  NETWORK 
/********************************************************/ 
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ListLines  *intersection_lines [Networks . Nlist-1] ; //  does  not  include  isolated 
fractures 

Node_list  *p_list=Networks . head_list->next_list; 

for  (int  k=0;  k<Networks .Nlist-1 ;  k++) 

{ 

intersection_lines [k] =& (p_list->content->make_list_of_intersections ( ) ) ; 
p_list=p_list->next_list; 

}  ■  .  * 
/************************************************** i 

//  NEWLY  ADDED  SECTION  OCT.  27,  2000 

//OUTPUTS  ALL  THE  LOI ' S  TO  FILE  IN  MATHEMATICA  FORMAT 

out. open ("LOIl.m") ; 
out« "  Show  [  "  ; 

for  (int  k=0;  k<Ne two rks .Nlist-1;  k++) 

{ 

intersection_lines [k] ->print ( ) ; 
if  (k<Networks  .Nlist-2 )  out«",  " ;//  separator 
} 

out« 11  ] 
out . close ( )  ; 

/**************************************************/ 

//  NEWLY  ADDED  SECTION  JUNE  5,  2001 
//  OUTPUTS  ALL  THE  LOI  LENGTHS  INTO  A  FILE 

int  line_count=0; 

Node_line  *p_line=0; 

out . open ( " ALLINTLENGTHS . txt " ) ; 

out« " LENGTH \t  TrendXt  Plunge\t  Vector. X\tVector. Y\tVector .Z"«endl; 
for (int  k=0;  k<Netwo rks .Nlist-1 ;  k++) 

{ 

line_count+=intersection_lines  [k] ->Nline;  •• 

p_line=intersection_lines [k] ->head_line; 

for (int  kj=0;  kj<intersection_lines [k] ->Nline;  kj++) 

{ 

out<<p_line->content->length<< "  "<<p_line->content->compute_trend ( ) << " 
"<<P_line->content->coinpute_plunge  ()«"  "«p_line->content->vector; 
p_l ine=p_l ine ->next_l ine ; 

} 

} 

out<<" there  are  "«line_count«"  intersections "«endl  ; 
out . close ( ) ; 

cout«" there  are  "«line_count« 11  intersections "«endl«endl ; 

/********************************************************^ 

//  COMPUTATION  OF  THE  WEIGHTED  AVERAGE  ORIENTATION  OF  THE  SUB-NETWORKS 

Stat  subnet_strike [Networks .Nlist] ; 

Stat  subnet_dip [Networks .Nlist) ; 

cur_list=Networks ,head_list; 
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for(i=0;  i<Networks .Nlist;  ++i) 

{ 

subnet_strike  [i]  =cur_list->co.ntent->find_mean_sd_strike ( ) 
subnet_dip [i] =cur_list->content->f ind_mean_sd_dip ( ) ; 

cur_l i s  t =cur_l i s  t - >next_l is t ; 

}  ; 

//  COMPUTATION  OF  C8x,  C8y,  C8z 

cur_list=Networks . head_list ; 
double  c8_x [Networks .Nlist] ; 
double  c8_y [Networks. Nlist ] ; 
double  c8_z [Networks .Nlist] ; 

for(i=0;  i<Networks . Nlist ;  ++i) 

{ 

c8_x[i] =cur_list->content->f ind_c8 (1) ; 
c8_y [i] =cur_list->content->f ind_c8 (2) ; 
c8_z [i] =cur_list->content->find_c8 (3) ; 

cur_list=cur_list->next_list ; 

}  ; 

//  GRAPHICAL  OUTPUT  FILES  FOR  THE  SUB-NETWORKS 

cur_l i s  t =Ne tworks . head_l i s  t ->next_l is t ; 
int  N__print=3; 

int  Loc_print [N_print] ; 
int  Size_print[N_print]; 

for ( j=0;  j<N_print;  ++ j ) 

{ 

Loc_print [ j ] =0 ; 

Size_print [ j ] =0; 

} ; 

for ( j  —  0 ;  j<N_print;  +  +  j) 

{ 

cur_list=Networks . head_list->next_list ; 

if(Ij) 

{ 

for(i=l;  i<Networks .Nlist;  ++i) 

{ 

if (cur_list->content->Npol  >  Size_print [ j ] ) 

{ 

Size_print [ j ] =cur_list->content->Npol; 

Loc_print [ j ] =i ; 

.  )  ; 

cur_l i s  t =cur_l i s  t - >next_l is t ; 

}  ; 

} 

else 

{ 

for(i=l;  i<Networks .Nlist;  ++i) 

{ 
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if ( (cur_list->content->Npol  >  Size_print [ j ] )  &&  (cur__list->content->Npol  < 
Size_print [ j-1] ) ) 

{ 

Size_print [ j ] =cur_list->content->Npol; 

Loc_print [ j ] =i; 

}  ; 

cur_list=cur_list->next_list; 

.}; 

}  ; 

}  ; 


out . open ( " SUB_NET1 . m" ) ; 

cur_l i s  t  =Ne tworks . head_l i s  t - >next_l i  s  t ; 
for(i=l;  i<Networks .Nlist;  ++i) 

{ 

if (Loc_print [0] ==i) 

{ 

out« "  Show  [  "  ; 
cur_list->content->print ( ) ; 

Out« "  ]  "  ; 

}  '• 

cur_list=cur_list->next_list ; 

} ; 

out.closeO  ; 

out . open ( " SUB_NET2 . m" ) ; 

cur_l i s  t=Ne tworks . head_l i s  t - >next_l ist; 
for(i=l;  i<Networks .Nlist;  ++i) 

{ 

if (Loc_print [1] ==i) 

{ 

Out« "  Show  [  " ; 
cur_list->content->print ( ) ; 
out« "  ]  "  ; 

}  ; 

cur_list=cur_list->next_list ; 

} ; 

out . close ( ) ; 

out . open ( " SUB_NET3 . m" ) ; 

cur_list=Networks .head_list->next_list ; 
for(i=l;  i<Networks .Nlist ;  ++i) 

{ 

'if  (Loc_print  [2]  ==i) 

{ 

out« "  Show  [  "  ; 
cur_list->content->print ( ) ; 
out« "  ]  11  ; 

} ; 

cur_list=cur_list->next_list ; 

}  ; 

out . close ( ) ; 

cur_list=Networks .head_list; 
out . open  { " ISOLATED . m" ) ; 
out« "  Show  [  "  ; 
cur_list->content->print ( ) ; 
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out« "  3  "  ; 

out . close ( ) ; 

/***************************************************************************** 

*/ 

//NEWLY  ADDED  SECTION  JUNE  5,  2001 

//  OUTPUTS  ALL  THE  LOI  LENGTHS  FOR  ALL  THE  SUB-NETWORKS  INTO  3  FILES 

if (Loc_print [0] >0  &&  Loc_print [0] <Networks .Nlist) 

{ 

p_line=0;//  re-initialize 
out . open ( " SUBl_LOI . txt " ) ; 

out«"LENGTH\t  Trend\t  Plunge\t  Vector .X\tVector. Y\tVector. Z"«endl; 
p_line= intersect ion_lines [Loc_print [ 0] -1] ->head_line; 
for(int  kj  =  0 ;  kj<intersection_lines [Loc_print [0] -1] ->Nline;  kj++) 

{ 

out«p_line->content->length«"  "«p_line->content->compute_trend( ) «" 
"«p_line->content->compute_plunge  ( )  «"  "«p_line->content->vector  ; 
p_l ine =p_l ine - >next_l ine ; 

} 

out«"there  are  "<<intersection_lines  [Loc_print  [0] -1]  ->Nline«"  intersections 
in  sub-network  l"«endl; 
out .close ( ) ; 

cout«" sub-network  1  is  the  number  "«Loc_print  [0]  +1«"  network " <<endl ; 
cout«"the  corresponding  intersection  list  is 
intersection_lines  [  "«Loc_print  [0]  -1«“  ]  "«endl; 

cout«"there  are  "«intersection_lines [Loc_print  [0]  -1]  ->Nline«" 
intersections  in  sub-network  l"«endl«endl; 

} 


/*****/ 

if(Loc _print[l]>0  &&  Loc_print [1] <Networks .Nlist) 

{ 

p_line=0;//  re-initialize 
out . open ( " SUB2_LOI . txt " ) ;  . 

out«"LENGTH\t  Trend\t  PlungeNt  Vector  .XNtVector .  Y\tyector .  Z"«endl; 
p_line=intersection_lines [Loc_print [1] -1] ->head_line; 
for(int  kj  =  0 ;  kj<intersection_lines [Loc_print [1] -1] ->Nline;  kj++) 

{ 

out«p_line->content->length«"  "«p_line->content->compute_trend( ) «" 
"«p_line->content->compute_plunge  ( )  «"  “<<p_line->content->vector; 
p_l ine=p_l ine - >next_l ine ; 

} 

out«"there  are  "«intersection_lines  [Loc_print  [1] -1] ->Nline«"  intersections 
in  sub-network  2"«endl; 
out . close ( ) ; 

cout«" sub-network  2  is  the  number  "«Loc_print  [1]  +1«"  network’’«endl ; 
cout«"the  corresponding  intersection  list  is 
intersection_lines  [  "«Loc_print  [1] -1«"  ]  "«endl  ; 

cout«"there  are  "«intersection_lines  [Loc_print  [1]  -1]  ->Nline«" 
intersections  in  sub-network  2  "«endl«endl ; 

} 


/***★*/ 

if (Loc_print [2 ] >0  &&  Loc_print [2] <Networks .Nlist) 
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{ 

p_line=0;//  re-initialize 
out . open ( " SUB3_L0I . txt " ) ; 

ou t « " LENGTH \ t  Trend\t  Plunge\t  Vector  .X\tVector . YNtVector .  Z"«endl; 

p_line=intersection_lines [Loc_print [2 ] ^1] ->head_line; 
for(int  kj=0; ■ kj<intersection_lines [Loc_print [2] -1] ->Nline;  kj++) 

{ 

out«p_line->content->length« "  "<<p_line->content->compute_trend  ( )  << " 
"«p_line->content->compute_plunge ( ) « "  "<<p_line->content->vector; 
p_l ine=p_l ine ->next_l ine ; 

}  •  ' 

out«"there  are  "«intersection_lines  [Loc_print  [2] -1]  ->Nline«"  intersections 
in  sub-network  3"«endl; 
out. closed  ; 

cout«  "sub-network  3  is  the  number  "«Loc_print  [2] +1<<"  network " «endl ; 
cout«"the  corresponding  intersection  list  is 
intersection_lines  [  "«Loc_print  [2 ]  -1<<"]  "<<endl; 

cout<<"there  are  "«intersection_lines  [Loc _print  [2]  -1]  ->Nline«" 
intersections  in  sub-network  3  "«endl«endl ; 

} 


/***************************************************************************** 

*/ 

//  NEWLY  ADDED  SECTION  JUNE  5(  2001 

/ /  OUTPUTS  ALL  THE  LOI ' S  FOR  EACH  SUB_NETW ORK  FOR  MATHEMATICA 

if (Loc_print [0] >0  &&  Loc_print [0] <Networks .Nlist) 

{ 

out . open (" SUBl_LOI . m" ) ; 
out<<"Show[ 

intersection_lines [Loc_print [0] -1] ->print () ; 
out« "  ]  " ; 
out . close ( ) ; 

} 

if (Loc_print [1] >0  &&  Loc_print [1] <Networks . Nlist) 

{ 

out . open ( "SUB2_LOI .m" ) ; 
out«"Show[  "  ; 

intersection_lines  fLoc  print [1] -1] ->print ( ) ; 
out« "  ]  "  ; 
out . close () ; 

} 

if (Loc_print [2] >0  &&  Loc^print [2 ] <Networks .Nlist) 

{ 

out . open ( " SUB3_L0I . m" ) ; 
out«''Show[ 

intersection_lines [Loc_print [2] -1] ->print ( ) ; 
out« "  ]  " 
out . close ( ) ; 

} 


*/ 


268 


//  PRINTING  THE  CHARACTERISTICS  OF  THE  SUB-NETWORKS  IN  FRAC.txt 
int  Ntot=0; 

out. open  ("FRAC.txt",  ios::app); 
out«endl« "  SUB-NETWORKS "  «endl  ; 

out«"Number  of  isolated  fractures:  "«Networks  . head_list->content- 
>Npol«endl; 

out<<"For  the  "<<Networks .Nlist«"  sub-networks  (N-strike-dip-c8x-c8y-c8z ) : 
"«endl  ; 

for(i=0;  i<Networks .Nlist ;  ++i) 

{ 

out«cur_list->content->Npol«"  "«subnet_s trike [i]  . Mean*180/PI<< " 
"«subnet_dip  [i]  .Mean*180/PI«"  "«c8_x[i]«"  "«c8_y[i]«"  "«c8_z  [i]«endl; 
Ntot+=cur_list->content->Npol ; 
cur_list=cur_list->next_list ; 

}  ; 

out«" Total  fractures  involved:  "<<Ntot«endl«endl ; 
out . close ( ) ; 


}  ; 


/*********************************************************■********** 
*  OUTPUT  FOR  FRACTURE  SYSTEM  AND  TRACES  ON  OUTCROP  PLANES 

*******************************************************************/ 

//ALL  FRACTURES  in  a  file  "FRACTURES .m" 

if  (gF  ==  'Y'  ||  gF  ==  'y'  ||  cF  ==  ‘y1  ||  cF  ==  'Y') 

{ 

if  (gF  ==  -Y'  ||  gF  ==  'y' ) 

{ 

out . open  ( " FRACTURES . m " ) ; 

out«"Show  [  " ; 

for ( i=0 ;  i<Nsets;  ++i) 

{ 

if (faults [i] .Npol) 

{ 

faults [i] .print ( ) ; 
out« " ,  " ; 

} ; 

}  ; 

FracSys .print ( ) ; 
out« "  ]  "  ; 

out . close ( )  ; 

}  ; 

if  (cF  ==  'Y'  ||  cF  ==  ' y 1 ) 

{ 

out . open  ( " FRACTURES . txt " ) ; 

out«FracSys«endl  ; 
out . close ( ) ; 

}  ; 

}  ; 


//  CENTER  OUTPUT 

out . open  ( " CENTER . txt " ) ; 

0ut<<  "X — Y — Z--area — strike — dip"«endl  ; 
FracSys . center _print ( ) ; 
out«endl«endl  ; 
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FracSys_Box . center_print ( ) ; 
out . close ( ) ; 

//  VERTICAL  OUTCROP  in  a  file  "PROFILE. m " 

if  (gV  ==  'Y'  ||  gV  =  =  'y'  ||  cV  ==  'y'  ||  cV  ==  ' Y ' ) 

{ 

tracesV  =  FracSys . traces_on_plane (prof ile) ; 

cout«"After  changes  there  are  "«tracesV.Nline«"  profile  traces  "«endl; 

double  nOV,  nlV,  n2V; 
nOV=tracesV. count_traces_0 (cirV) ; 
nlV=tracesV. count_traces_l (cirV) ; 
n2V=tracesV. count_traces_2 (cirV) ; 

for(i=0;  i<Nsets;  ++i) 

faultsVti] =faults [ i ] . traces_on_plane (prof ile) ; 

Stat  outVmsd  =  tracesV. f ind_mean_sd_length () ; 
out. open  ("FRAC.txt",  ios::app); 
out«endl«" OUTCROPS  (traces  lengths)  "«endl; 
out« "VERTICAL:  Mean--SD — Total--P21  :  "«outVmsd«" 

"«outVmsd.  total/outPolV.area«endl; 

out«"Window:  R-N0--N1--N2  :  "«cirV. radius«"  "«nOV<<"  "«nlV«" 
"«n2V«endl  ; 
out. close () ; 

if  (gV  ==  'Y'  ||  gV  ==  'y* ) 

{ 

out . open  ( " PROFILE .m" ) ; 
out«"Show  [  "  ; 
for(i=0;  i<Nsets;  ++i) 

{ 

if (faultsVti] .Nline) 

{ 

faultsVti] .print () ; 
out« " ,  "  ; 

}  ; 

} ; 

II  outPolV. print () ; 

/  /  out« " ,  "  ; 

tracesV. print ( ) ; 
out« "  ]  "  ; 

out . close ( ) ; 

}  ; 

if  (cV  ==  ' Y ’  ||  cV  ==  'y' ) 

{ 

out . open  ( " PROFILE . txt " ) ; 

out«tracesV«endl  ; 
out . close ( ) ; 

} ; 

}  ? 

//HORIZONTAL  OUTCROP  in  a  file  " PLAN.m" 

if  (gH  ==  'Y'  ||  gH  ==  'y'  ||  cH  ==  'y1  ||  cH  ==  ' Y ■ ) 
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{ 

tracesH  =  FracSys . traces_on_plane (plan) ; 

cout«"After  changes  there  :are  "«tracesH.Nline«"  plan  traces"«endl ; 

double  nOH,  nlH,  n2H; 
nOH=tracesH.count_traces_0 (cirH) ; 
nlH=tracesH.count_traces_l (cirH) ; 
n2H=tracesH. count_traces_2 (cirH) ; 

for(i=0;  i<Nsets;  ++i) 

faultsH[i]  =faults  [i]  .  traces_on__plane  (plan)  ; 

Stat  outHmsd  =  tracesH . f ind_mean_sd_length () ; 
out. open  ("FRAC.txt",  ios::app); 

out«" HORIZONTAL:  Mean— SD- -Total --P21  :  "«outHmsd«" 

"«outHmsd.  total /outPolH.  area«endl  ; 

out<<"Window:  R-N0--N1--N2  :  "«cirH.radius«”  "«nOH«"  "«nlH«" 

"«n2H«endl; 

out . close ( ) ; 

if  (gH  ==  'Y'  [ |  gH  ==  • y ' ) 

{ 

out . open  ( " PLAN . m” ) ; 
out« "  Show  ["; 
for(i=0;  i<Nsets;  ++i) 

{ 

if (faultsH[i] .Nline) 

{ 

faultsH[i] .print ()  ; 
out<<"/ 

) ; 

}  ; 

//  outPolH. print () ; 

//  out«",  "  ; 
tracesH. print () ; 
out« "  ]  " ; 

out . close ( ) ; 

}  ; 

if  (cH  ==  'Y'  ||  cH  ==  'y' ) 

{ 

out . open  ( " PLAN . txt " ) ; 

out«tracesH«endl  ; 
out . close ( ) ; 

}  ; 

}; 


} ; 
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plane.C 


// 

* 

G  E  0  F  R  A  C 

* 

// 

* 

Copyright 

Massachusetts  Institute  of  Technology  1995-1998 

* 

// 

* 

Violeta  Ivanova,  Thomas  Meyer,  Herbert  Einstein 

* 

// 

* 

'  * 

// 

★ 

Don ' 

t  use  or  modify  without  written  permission 

* 

// 

* 

(contact  einstein@mit.edu) 

* 

ii  ******************************************************************* 

ttinclude  "polar. h" 

#include  "plane. h" 

# include  " cartes ian.h" 

#include  "point. h" 

#include  "circle. h" 

#include  " volume. h" 

extern  double  bFkl,  bFk2 ,  Fk,  MaxPhi,  Xm,  Ym,  Zmin; 

Polar  ran_uniform_orientation (void) ; 

Polar  uniform_max_phi_orient (double) ; 

Polar  constant_orientation (void) ; 

Polar  Fisher_orientation  (double) ; 

Polar  bivariate_Fisher_orientation  (double,  double); 

ttdefine  PI  M_PI 

#def ine  Half PI  (M_PI/2) 

ttdefine  TwoPI  (M_PI*2) 


ostream&  operator«  (ostream&  o,  Plane&  p) 

{ 

o  «p.A«"  " <<p . B<< "  "«p.C<<"  "«p.D<<endl; 

o  «"rel  polar  "<<p.rel_polar<<"  abs  polar  "«p.abs__polar«endl; 
o  «  "strike  "«p .  strike« "  dip  "<<p .dip«endl ; 
return  o; 

}  ; 


//  Constructor  for  the  plane  when  the  A,  B,  C,  and  D  in  the  equation 
//  Ax+By+Cz=D  are  given 

Plane  : :  Plane  (double  a,  double  b,  double  c,  double  d)  { 

A=a ;  B=b;  C=C;  D=d; 

MeanPole . theta=0 . ;  MeanPole.phi=0 . ; 
rel_cart .X=A;  rel_cart . Y=B;  rel_cart . Z=C; 
abs_cart .X=A;  abs_cart . Y=B;  abs_cart . Z=C; 
rel_polar  =  rel_cart . convert_to_polar { ) ; 
abs_polar . theta  =  rel_polar. theta; 
abs_polar .phi  =  rel_polar .phi ; 

strike  =  abs_polar . theta  -  Half PI; 
if  (strike  <  -PI) 
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strike  +=  TwoPI; 


dip  =  abs_polar .phi ; 
if  (dip  >  HalfPI) 

{dip  =  PI -dip; 
if  (strike  >  0.) 

strike-=PI; 

else 

strike  +=PI; 

}  ; 

}; 


//  Constructor  for  the  plane  defined  by  three  points  p,  q,  r.  The  normal 
//  vector  N  is  given  by  the  cross  product  N=pqxpr. 

Plane  ::  Plane  (Points  p,  Points  q,  Points  r)  { 

A= (q . Y-p .Y) * (r.Z-p.Z) -(q.Z-p.Z) * (r.Y-p.Y) ; 

B= (q. Z-p . Z) * (r.X-p.X) - (q.X-p.X) * (r.Z-p.Z) ; 

C= (q.X-p.X) * (r.Y-p.Y) - (q.Y-p.Y) * (r .X-p.X) ; 

D=A*p . X+B*p . Y+C*p . Z ; 

MeanPole . theta=0 . ;  MeanPole .phi=0 . ; 
rel_cart .X=A;  rel_cart . Y=B;  rel_cart . Z=C; 
abs_cart .X=A;  abs_cart . Y=B ;  abs_cart . Z=C ; 
rel_polar  =  rel_cart . convert_to_polar ( ) ; 
abs_polar. theta  =  rel _polar. theta; 
abs  _polar.phi  =  rel_polar.phi; 

strike  =  abs_polar . theta  -  HalfPI; 
if  (strike  <  -PI) 
strike  +=  TwoPI; 

dip  =  abs_polar .phi ; 
if  (dip  >  HalfPI) 

{dip  =  PI -dip; 
if  (strike  >0.) 

strike-=PI; 

else 

strike  +=PI; 

}  ; 

}; 

//  Constructor  for  a  plane  from  a  normal  vector  v(A,  B,  C)  and  a  point 
//  p (X, Y, Z)  in  the  global  f.o.r.  The  plane  is  defined  by  equation  Ax+By+Cz=D 
//  where  D=AX+BY+CZ.  The  plane  belongs  to  a  set  with  mean  pole  orientation 
//  given  by  the  class  Polar  MeanP.  The  coordinates  of  the  pole  in  the  local 
//  frame  of  reference  (Z=MeanPole)  are  calculated  correspondingly. 


Plane: :Plane  (Cartesians  v,  Points  p,  PolarS  MeanP)  { 
D=v . X*p .X+v. Y*p . Y+v. Z*p . Z ; 

A= v . X ;  B=v. Y;  C=v.Z; 

MeanPole  =  MeanP; 

abs_cart ,X=A;  abs_cart . Y=B;  abs_cart . Z=C ; 
abs_polar  =  abs_cart . convert_to_polar ( )  ; 
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rel_cart  =  abs_cart . local_coordinates (MeanPole) ; 
rel_polar  =  rel_cart . convert_to_polar ( ) ; 

strike  =  abs_polar. theta  -  Half PI; 
if  (strike  <  -PI) 
strike  +=  TwoPI; 

dip  =  abs_polar .phi; 
if  (dip  >  HalfPI) 

{dip  =  PI -dip; 
if  (strike  >0.) 

strike-=PI ; 
else 

strike  +=PI; 

} ; 

} ; 


//  Constructor  to  create  a  plane  through  a  given  point  P(X,Y,Z)  in  space. 
//  The  MeanPole  (Z  in  relative  f.o.r.)  is  given  by  first  class  Polar. 

//  The  orientation  of  the  plane  in  the  RELATIVE  f.o.r.  is  given  by  the 
//  second  class  Polar.  The  coordinates  of  the  point  are  in  ABSOLUTE  f.o.r. 

Plane: ;Plane  (Polar&  MeanP,  Polar&  planePole,  Point&  p3d) 

{ 

MeanPole  =  MeanP; 
rel_polar  =  planePole; 

rel_cart  =  rel_polar.convert_to_cartesian( ) ; 
abs_cart  =  rel_cart .global_coordinates  (MeanPole); 
abs_polar  =  abs_cart . convert_to _polar(); 

A  =  abs_cart . X ;  B  =  abs_cart . Y;  C  =  abs_cart . Z ; 

D=A*p3d.X+B*p3d. Y+C*p3d. Z; 

strike  =  abs_polar. theta  -  HalfPI; 
if  (strike  <  -PI) 
strike  +=  TwoPI; 

dip  =  abs_polar.phi; 
if  (dip  >  HalfPI) 

{dip  =  PI -dip; 
if  (strike  >0.) 

strike-=PI; 

else 

strike  +=PI; 

} ; 

}  ; 


//  Procedure  to  create  a  plane  with  a  given  orientation  through  a  given 
//  point  in  3D.  The  relative  polar  orientation  is  generated  in  the  LOCAL 
//  f.o.r.  stochastically  according  to  a  PDF  specified  by  the  character  option 
//  The  relative  cartesian,  and  the  absolute  pole  orientations  are  calculated 
//  next.  The  equation  of  the  palne  (A,  B,  C,  D)  is  calculated  so  that  the 
//  plane  passes  through  the  point  p3d  (X,Y,Z)  given  in  the  GLOBAL  f.o.r. 

//  The  Polar  Mean  gives  the  orientation  of  the  local  f.o.r.  whihc  is  the  mean 
//  pole  orientation  for  the  set  of  planes  to  which  the  new  plane  belongs. 
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Plane: :  Plane  (char  option,  Polar&  MeanP,  double  Distance)  { 
switch  (option) 


{ 


case  'u' 


//  uniform  distribution  on  the  hemisphere 


rel_polar  =  ran_uniform_orientation ( ) ; 
break ; 

case  'p' :  //  partial  uniform  on  the  hemisphere 

rel_polar  =  uniform_max_phi_orient (MaxPhi) ; 
break; 

case  'c':  //  constant  orientation  =  Mean 

rel_polar  =  constant_orientation ( ) ; 
break ; 

case  ' f '  :  //  Fisher 

rel_polar  =  Fisher_orientation  (Fk) ; 
break ; 

case  'b' :  //  Bivariate  Fisher 

rel_polar  =  bivariate_Fisher_orientation  (bFkl,  bFk2); 
break ; 

default: 

cout« " Unknown  distribution.  "«endl; 
break ; 


}  ; 


MeanPole  =  MeanP; 

rel_cart  =  rel_polar.convert_to_cartesian( ) ; 
abs_cart  =  rel_cart.global_coordinates  (MeanPole); 
if  (option  ==  ' c ' ) 

abs_polar  =  MeanPole; 

else 

abs_polar  =  abs_cart . convert_to_polar ( ) ; 

if  (abs_polar .phi  >  HalfPI)  //  make  pole  always  point  upward 

{abs_polar .phi  =  PI  -  abs_polar .phi; 
abs_polar. theta  -=  PI; 
if  (abs_polar . theta  <  -PI) 
abs_polar . theta  +=  TwoPI;  }; 


A  =  abs_cart.X;  B  =  abs_cart.Y;  C  =  abs_cart.Z; 
D  =  Distance; 

strike  =  abs_polar. theta  -  HalfPI; 
if  (strike  <  -PI) 
strike  +=  TwoPI; 

dip  =  abs_polar.phi; 
if  (dip  >  HalfPI) 

(dip  =  Pi-dip; 
if  (strike  >  0.) 

strike-=PI;  . 
else 

strike  +=PI; 

}  ; 


275 


} ; 


//  Calculates  a  vector  of  unit  length  which  is  perpendicular  to  the  pole  of 
the 

//  plane,  lies  in  the  plane  and  points  upward  along  the  dip  of  the  plane. 

Cartesian  Plane  ::  f ind_binormal  () 

{ 

Cartesian*  be  =  new  Cartesian; 
if  <00. ) 

{bc->X  =  cos(dip)  *  sin(abs_polar.theta+PI) ; 
bc->Y  =  cos(dip)  *  cos (abs_polar . theta+PI) ; 
bc->Z  =  sin (dip);}; 
if  (C<0.) 

(bc->X  =  cos (dip) *sin(abs_polar. theta) ; 
bc->Y  =  cos (dip) *cos (abs_polar. theta) ; 
bc->Z  =  sin (dip);}; 
if  (C==0 . ) 

{bc->Y=0.;  bc->Y=0.;  bc->Z=l.;}; 

return  (*bc) ; 

}  ; 


//Procedure  to  check  if  a  point  is  "in  front"  or  "behind"  a  plane.  The  point 
//is  located  "in  front"  if  it  is  on  the  side  of  the  plane  pointed  at  by  the 
//pole  of  this  latter. 

int  Plane:  :  is_point_front__behind( Point  &P) 

{ 

double  check=A*P.X+B*P. Y+C*P. Z-D; 

if (check>0 . 000001)  //Front 

return  1; 

if (check<-0 . 000001 )  //Behind 

return  -1; 

if (check>-0 . 000001  &&  check<0 . 000001)  //On  the  plane 

return  0; 

} ; 


//  Procedure  to  create  a  circle  on  a  horizontal  outcrop. 
Circle  Plane: : circle_on_horizontal ( ) 

{ 

Circle  circ; 
double  size=0.9; 
circ . center ,X=0 . ; 
circ . center . Y=0 . ; 
circ . center . Z=D/C; 

double  rl=Xm*sgrt(l+A*A/ (C*C) ) ; 
double  r2=Ym*sqrt (1+B*B/ (C*C) ) ; 
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if (rl<r2) 

circ . radius=size*rl ; 
else 

circ . radius=size*r2 ; 

circ . support . A= A ; 
circ . support . B=B ; 
circ . support . C=C ; 
circ . support .D=D; 

return  circ; 

}  ; 


//  Procedure  to  create  a  circle  on  a  vertical  outcrop 
Circle  Plane: :circle_on_vertical ( ) 

{ 

Circle  circ; 

double  size=0.9; 

double  XVI,  YVl,  XV2 ,  YV2 ; 

Point  PI,  P2; 

if (A<0 . 0001  &&  A> -0.0001) 

{ 

Pl.X=-Xm;  PI . Y=D/B;  P1.Z=0.; 

P2.X=Xm;  P2.Y=D/B;  P2.Z=0.; 

}  ; 

iff B< 0.0001  &&  B>-0 . 0001 ) 

{ 

PI ,X=D/A;  PI . Y=-Ym;  P1.Z=0.; 

P2.X=D/A;  P2.Y=Ym;  P2.Z=0.; 

}  ; 

if ( ( A ! =0 . )  &&  (B ! =0 . ) ) 

{ 

XVI =Xm;  YV1= (D-A*Xm) /B; 
if (YVl>Ym) 

{ 

YVl=Ym;  XV1= (D-B*Ym) /A; 

}  ; 

if (YVl<-Ym) 

{ 

YVl = -Ym;  XVl=(D+B*Ym) /A; 

}; 

PI . X=XVl ;  PI. Y- YVl;  P1.Z=0.; 

XV2=-Xm;  YV2=(D+A*Xm) /B; 
if (YV2>Ym) 

{ 

YV2=Ym;  XV2= (D-B*Ym) /A; 

}  ; 

if  (YV2<-Ym) 

{ 

YV2=-Ym;  XV2= (D+B*Ym) /A; 
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} ; 

P2 . X=XV2 ;  P2.Y=YV2;  P2.Z=0.; 

}  ; 


circ .center .X= (Pi .X+P2 .X) /2 ; 
circ. center. Y=( PI. Y+P2.Y) /2; 
circ . center . Z=Zmin/2 ; 

double  l_car; 

l_car=sqrt ( (PI .X-P2 .X) * (P1.X-P2 .X) + (Pi . Y-P2 .Y) * (PI .Y-P2 .Y) ) 
circ . radius=size*l_car/2 ; 
if (Zmin<l_car) 

circ . radius=size*Zmin/2 ; 

circ . support . A=A; 
circ . support . B=B; 
circ . support . C=C ; 
circ . support . D=D; 

return  circ; 

} ; 
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point.C 


ii  ******************************************************************* 

//*  GEOFRAC  * 

//  *  Copyright  Massachusetts  Institute  of  Technology  1995-1998  * 

II  *  Violeta  Ivanova,  Thomas  Meyer,  Herbert  Einstein  * 

//  *  * 
//  *  Don't  use  or  modify  without  written  permission  * 

//  *  (contact  einstein@mit.edu)  * 

II  ******************************************************************* 

# include  " point. h" 

extern  of stream  out; 
extern  double  Datum; 


void  Point :: print ( )  { 

if  (X  >=-0.0001  SS  X<=0.0001) 

X=0 .  ; 

if  (Y  >=-0.000lSS  Y<=0 . 0001 ) 

Y=0.  ; 

if  (Z  >=-0.0001  SS  Z<=0.0001) 

Z=0.  ; 

out«"  { “«X«" ,  "«Y«" ,  "«Z+Datum«" } "  ; 
};  ' 


//  Function  to  compute  the  volume  of  the  paralellipiped  defined  by  four 
//  points.  PT  is  the  top  of  the  pyramid,  and  PI  to  P3  are  located  in  order 
//  to  satisfy  the  left-handed  system.  The  computation  performed  is  also 
II  called  the  triple-product.  Volume  is  l/6th  of  the  triple-product. 

double  Point :: triple_product { Points  PI,  Points  P2,  Points  P3) 

( 

double  TP; 

TP=  (  (PI  .X-X)  *  (P2  .  Y-Y)  *  (P3  .  Z-Z)  +  (P2  .X-X)  *  (P3  .  Y-Y)  *  (PI .  Z-Z)  +  (P3  .X-X)  *  (PI .  Y- 
Y) * (P2 .Z-Z) -(P3 .X-X) * (P2 .Y-Y) * (PI . Z-Z) - (PI .X-X) * (P3 .Y-Y) * (P2 .Z-Z) -(P2.X- 
X) * ( PI . Y-Y) * ( P3 . Z-Z ) )/ 6; 

return  TP; 

} ; 


//  Function  to  return  the  coordinate  Z  of  the  object  Point. 

double  Point : : give_z ( ) 

{ 

return  Z; 

}  ; 


279 


polar.C 


/  /  ******************************************************************* 
//*  GEOFRAC  * 

//  *  Copyright  Massachusetts  Institute  of  Technology  1995-1998  * 

//  *  Violeta  Ivanova,  Thomas  Meyer,  Herbert  Einstein  * 

//  *  * 
//  *  Don't  use  or  modify  without  written  permission  * 

//  *  (contact  einstein@mit.edu)  * 

//  ******************************************************************* 

#include  "polar. h" 

#include  "cartesian .h" 


Cartesian  Polar: : convert_to_cartesiah ( ) 
{  Cartesian*  c  =  new  Cartesian  (); 
c->X=sin(phi) *sin(theta)  ; 
c->Y=sin(phi) *cos (theta) ; 
c->Z=cos (phi) ; 
return  (*c); 

}  ; 


280 


polygon.C 


ii  ******************************************************************* 

//*  GEOFRAC  * 

//  *  Copyright  Massachusetts  Institute  of  Technology  1995-1998  * 

//  *  Violeta  Ivanova,  Thomas  Meyer,  Herbert  Einstein  * 

II*  * 

//  *  Don't  use  or  modify  without  written  permission  * 

//  *  (contact  einstein@mit.edu)  * 

II  ******************************************************************* 

ttinclude  " cartesian. h" 

#include  "point. h" 

# include  "polygon.h" 

extern  of stream  out; 

extern  double  Xm,  Ym; 

extern  double  MeanArea; 

extern  double  ratioMA; 

extern  Volume  rock; 

double  RandomBC  (double,  double) ; 

Polygon  make_initial (Plane&,  Volume&) ; 


//  Procedure  to  print  a  polygon  for  graphics  output.  The  function  creates 
//a  string  which  can  be  plotted  directly  by  running  Mathematica. 


void  Polygon  : :  print ( ) 

{ 

Point*  marker  =  head; 
int  i; 

out<<"Graphics3D  [Polygon  [{"; 
for  ( i=0 ;  i<  (noP-1) ;  i++) 

{ 

marker->print  ( )  ;  out« " ,  " ; 
marker  =  marker->next; 

}  ; 

marker->print ( ) ; 

out  «  "}],  PlotRange->All ,  Axes->True,  Boxed->True] " ; 
return; 

}  ; 


//A  constructor  to  create  a  "polygon"  with  one  vertex  coinciding  with 
//  the  point  P  given  in  the  global  f.o.r.,  and  parallel  to  the  plane  p. 
/ /  The  plane  does  not  have  to  pass  through  the  point . 


Polygon  : :  Polygon  (Plane&  p)  { 
setPole  =  p.MeanPole; 

Pole  =  p.abs_polar; 
strike  =  p. strike; 
dip  =  p .  dip  ; 
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center. Z  =  0  .  ; 


head  =  0; 

noP  =0;  name=0;  name_list=0; 
center. X  =  0.;  center. Y  =  0.; 
area  =  0 . ;  radius  =  0 . ; 

}  ; 


//  Procedure  to  find  the  coordinates  of  the  center  of  a  polygon, 
void  Polygon  ::  find_center  () 

{ 

Point*  current  =  head; 

double  xx=0.;  double  yy=0.;  double  zz=0.; 
int  i; 

for  (i=0;  i<noP;  ++i) 

{ 

xx+=current->X;  yy+=current->Y;  zz+=current->Z ; 
current  =  current->next; 

}  ; 

xx  /=  noP;  yy  /=  noP;  zz  /=  noP; 

center.X  =  xx;  center. Y  =  yy;  center. Z  =  zz; 

return; 

} ; 


//  Procedure  to  calculate  the  area  of  a  2d  polygon  (all  Z  coordinates  of 
//  vertices  must  be  the  same!!  The  formula  used  is 
7/  A  =  1/2 (XiYi+1  +  ...  -  XiYi-1  -  ...)  for  i  =  0  ...  noP-1 

void  Polygon: : find_area_radius_2d( )  { 
area  =0.;  radius  =  0.; 

Point*  current  =  head; 
int  i; 

double  xx,  yy; 

for  ( i  =  0 ;  i<noP;  +  +  i) 

{ 

xx  =  current->X;  yy  =  current->next->Y; 
area  +=  (xx*yy) ; 
current  =  current->next; 

}  ; 

for  ( i  =  0 ;  icnoP;  ++i) 

{ 

yy  =  current->Y;  xx  =  current ->next->X; 
area  -=  (xx*yy) ; 
current  =  current->next; 

}  ; 

area  /=  2; 
if  (area<0 . ) 

area*= ( -1 . )  ; 

radius  =  sqrt  (area/PI) ; 
return; 

} ; 
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//  Procedure  to  find  the  maximum  coordinate  of  any  of  the  vertices  of 
//  the  polygon  in  directions  x  (j=l) ,  y  (j=2)  or  z  (j=3). 

double  Polygon  ::  f ind_max_coord  (int  j) 

{ 

Point*  current; 
int  i ; 

double  cmax; 

if (j==l) 

cmax=head->X ; 
if ( j==2) 

cmax=head->Y; 
if < j==3) 

cmax=head->Z; 
if ( j<l  | |  j>3 ) 
cmax=  0 . ; 

current=head->next ; 

for(i=0;  i<noP-l;  ++i) 

{ 

if ( j  ==1  &&  cmax  <  current->X) 
cmax=current->X; 
if(j==2  &&  cmax  <  current->Y) 
cmax=current ->Y ; 
if(j==3  &&  cmax  <  current->Z) 
cmax=current->Z; 
current  =  current->next; 

} ; 


return  cmax; 

} ; 


//  Procedure  to  find  the  minimum  coordinate  of  any  of  the  vertices  of 
//  the  polygon  in  directions  x  ( j=l) ,  y  { j  =2 )  or  z  (j=3) . 

double  Polygon  ::  f ind_min_coord  (int  j) 

{ 

Point*  current; 
int  i  ; 

double  cmin; 
if (j==l) 

cmin=head->X; 
if (j==2) 

cmin=head->Y; 
if (j==3) 

cmin=head->Z ; 
if ( j <1  I  I  j>3) 
cmin=0 . ; 

current=head->next ; 

for(i=0;  i<noP-l;  ++i) 

{ 

if(j==l  &&  cmin  >  current->X) 
cmin=current->X ; 
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if ( j  ==2  &&  cmin  >  current->Y) 
cmin=current->Y; 
if(j==3  &&  cmin  >  current->Z) 
cmin=current->Z ; 
current  =  current->next; 

}  ; 


return  cmin; 

} ; 


//  Procedure  to  calculate  the  coordinates  of  a  polygon  in  its  own  plane, 
//  i.e.  the  polygon  becomes  essentially  two-D,  all  Z  coordinates  are  the 
//  same. 

void  Polygon  : :  make_polygon_2d  ( ) 

{ 

Point*  current  =  head;  int  i; 

Cartesian  temp; 
for  (i=0;  i<noP;  ++i) 

{  temp.X  =  current->X;  temp.Y  =  current->Y;  temp.Z  =  current->Z; 
temp  =  temp . local_coordinates  (Pole); 

Point  p (temp.X,  temp.Y,  temp.Z); 

current->X  =  p.X;  current->Y  =  p.Y;  current->Z  =  p.Z; 
current  =  current->next ;  }; 
find_center  (); 

if  ('area  &&  (radius  &&  noP>2) 

{ 

sort_points_2d ( ) ; 
f ind_area_radius_2d ( )  ; 

} ; 

return; 

}  ; 


//  Procedure  to  sort  the  vertices  in  a  2D  polygon  in  order:  according  to 
//  the  angle,  defined  by  a  line  through  a  vertex  and  the  center,  and  the 
//  local  axis  X.  All  Z  coordinates  are  the  same,  no  need  to  calculate  them 

void  Polygon  : :  sort_points_2d  ( ) 

{ 

Point*  current  =  head;  Point*  nextP; 

int  i,  j;  double  xxl,  yyl,  xxJ,  yyJ,  xx,  yy,  zz,  anglel,  angleJ; 
for  (i=l;  i  <  noP;  ++i) 

{  nextP  =  current->next; 
for  ( j=i;  j  <  noP;  ++ j ) 

{ 

xxl  =  current->X  -  center. X;  yyl  =  current->Y  -  center. Y; 
anglel  =  acos  (xxl  /  sqrt(xxl*xxl  +  yyl*yyl) ) ; 
if  (yyl<0.) 

anglel  =  TwoPI  -  anglel; 

xxJ  =  nextP->X  -  center. X;  yyJ  =  nextP->Y  -  center. Y; 
angleJ  =  acos  (xxJ  /  sqrt(xxj*xxj  +  yyJ*yyJ) ) ; 
if  (yyJ<0.) 

angleJ  =  TwoPI  -  angleJ; 
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if  (anglel  >  angle J) 

{ 

xx  =  current->X;  yy  =  current->Y;  zz  =  current->Z; 

current->X  =  nextP->X;  current->Y  =  nextP->Y;  current->Z  =  nextP->Z; 
nextP->X  =  xx;  nextP->Y  =  yy;  nextP->Z  =  zz; 

}  ; 

nextP  =  nextP->next; 

}  ; 

■  current  =  current ->next; 

}  ; 

return; 

}  ; 


//  Procedure  to  calculate  the  coordinates  of  a  2d  polygon  from  its  local 
//  f.o.r.  back  into  3d  in  the  global  f.o.r. 

void  Polygon  ::  make_polygon_3d  ()  { 

Point*  current  =  head; 
int  i  ; 

Cartesian  temp; 

for  (i=0;  i  <  noP;  ++i) 

{  temp.X=  current->X;  temp.Y=  current->Y;  temp.Z=  current->Z; 
temp  =  temp.global_coordinates  (Pole) ; 

Point  p(temp.X,  temp.Y,  temp.Z); 

current->X  =  p.X;  current->Y  =  p.Y;  current->Z  =  p.Z; 
current  =  current ->next;  }; 

find_center  (); 
return; 

)  ; 


//  Procedure  to  find  the  area  and  the  equivalent  radius  of  a  3d  polygon. 

//  The  coordinates  of  the  vertices  are  transformed  into  2d  f.o.r.  The 
//  vertices  are  sorted  in  order.  Then  the  area  of  the  2d  polygon  is 
//  calculated  and  the  radius  is  found  as  the  radius  of  a  circle  with  the 
//  same  area.  The  coordinates  of  the  vertices  are  then  back  calculated  in  3d 

void  Polygon  ::  area_radius_3d  ()  { 
make_polygon_2d() ; 
sort_points_2d  (); 
f ind_area_radius_2d  (); 

//cout«"  2D  POLYGON  "<<*this«endl ; 
make_polygon_3d (); 

//cout«" POLYGON  "«*this«endl; 

return; 

}  ; 


//  Function  to  find  out  if  a  point  belongs  to  a  polygon.  Returns  TRUE  if  the 
//  point  has  the  same  coordinates  as  one  of  the  vertices  of  the  polygon. 

boolian  Polygon  : :  is_it_member  (Points  P) 

{ 

Point*  marker  =  head; 
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int  i  ; 

for  ( i  =  0 ;  i<noP;  i  +  +) 

{ 

if  (marker->X  ==  P.X  &&  marker->Y  ==  P.Y  &&  marker->Z  ==  P.Z) 
return  TRUE; 
marker  =  marker->next; 

} ; 

return  FALSE; 

}; 


//  Function  to  add  a  point  to  a  polygon.  The  new  point  is  appended 
//  at  the  head  of  the  list  of  vertices  (Points)  which  consitute  the 
//  polygon.  The  last  point  points  to  the  new  point  which  is  the  new 
//  head  point. 

void  Polygon  : :  add_point  (Point&  P) 

{ 

Point*  temp  =  new  Point; 

++noP; 

temp->X  =  P.X; 
temp->Y  =  P.Y; 
temp->Z  =  P.Z; 

temp->next  =  head; 
head  =  temp ; 

Point*  current  =  head; 
int  i; 

for  ( i = 1 ;  i  <  noP;  ++i) 

current  =  current ->next; 
current->next  =  head; 


if  (noP==3  &&  ! Pole. theta  &&  ! Pole. phi) 

{ 

double  al  =  head->next->X  -  head->X; 
double  bl  =  head->next->Y  -  head->Y; 
double  cl  =  head->next->Z  -  head->Z; 
double  a2  =  head->next->next->X  -  head->X; 
double  b2  =  head->next->next->Y  -  head->Y; 
double  c2  =  head->next->next->Z  -  head->Z; 

Cartesian  N  ( (bl*c2-b2*cl) ,  (a2*cl-c2*al) ,  (al*b2-bl*a2 ) ) ; 

Pole  =  N. convert_to_polar ( ) ; 

}  ; 

return; 

}; 


//  Procedure  to  find  out  if  the  shape  of  the  polygon  is  good. 

//  For  every  vertex,  two  values  are  calculated:  1)  the  angle  between  the 
//  two  adjacent  sides  is  calculated  and  compared  to  a  specified  minimum 
//  allowed  angle  MinAngle;  and  2)  the  ratio  of  the  distance  to  the  center 
//  versus  the  equivalent  radius  of  the  polygon  is  compared  to  a  specified 
//  maximum  allowed  elongation. 
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boolian  Polygon  : :  i f _good_shape  (double  MinAngle,  double  MaxE)  { 
if  (noP<4) 

return  FALSE; 

if  (ratioMA) 

{ 

if  (area  <  ratioMA*MeanArea) 
return  FALSE; 

}  ; 

double  el  =  f ind_elongation  (); 
if  (el/ (2*radius)  >  MaxE) 
return  FALSE; 
int  i ; 

double  ANGLE; 

Point*  current  =  head; 

Point*  nextP  =  current->next; 

Point*  thirdP  =  current->next->next; 
for  (i=0;  i<noP;  ++i) 

{ 

Line  11  (*nextP,  *current) ; 

Line  12  (*nextP,  * thirdP ) ; 

ANGLE  =  11 . angle_with_line (12) ; 

if  (ANGLE  <  MinAngle) 
return  FALSE; 
current  =  current->next; 
nextP  =  nextP->next; 
thirdP  =  thirdP->next ; 

}  ; 

return  TRUE; 

} ; 


//  Procedure  to  find  the  elongation  of  a  polygon,  defined  as  the  maximum 
//  distance  between  two  vertices  in  the  polygon. 


double  Polygon  f ind_elongation  ()  { 

Point*  current=head; 

Point*  nextP; 
int  i=0,  j=2; 
double  elongation  =  0 . ; 
for  ( i=0 ;  i<noP-2;  i++) 

{ 

nextP  =  current->next->next ; 
for  (j=i+2;  j<noP;  j++) 

{ 

Line  l(*current,  *nextP) ; 
if  (1. length  >  elongation) 
elongation  =  1. length; 
nextP  =  nextP->next; 

}  ; 

current=current->next ; 
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}  ; 

return  elongation; 

}  ; 


//  Procedure  to  find  the  radius  R  of  the  smallest  sphere  in  which  a  polygon 
//  can  be  inscribed.  This  is  assumed  to  be  the  largest  of  the  distances 
//  between  the  center  and  one  of  the  vertices. 

double  Polygon  : :  minR_inscribe  ( )  { 

Point*  current  =  head; 
double  R=0 . ,  temp,  dx,  dy,  dz; 
int  i  ; 

for  (i=0;  i<noP;  ++i) 

{ 

dx=current->X  -  center. X; 
dy=current->Y  -  center. Y; 
dz=current->Z  -  center. Z; 

temp  =  sqrt(dx*dx  +  dy*dy  +  dz*dz) ; 
if  (temp  >  R) 

R=temp; 

current=current->next; 

}  ; 

return  R; 

} ; 


//  Two  functions  for  translation  of  polygons  in  3D 

void  Polygon  : :  operator+  (Cartesians  vector) 

{ 

Point*  current  =  head; 
int  i  ; 

for  (i=0;  icnoP;  i++) 

{  *current  +  vector; 
current  =  current->next ;  }; 
center+vector ; 
return; 

} ; 


void  Polygon  : :  operator-  (Cartesians  vector) 

{ 

Point*  current  =  head; 
int  i  ; 

for  ( i=0 ;  i<noP;  i++) 

{  *current  -  vector; 
current  =  current->next ;  }; 
center-vector; 
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return; 
}  ; 


//  Function  to  translate  a  polygon  perpendicular  to  its  plane. 

//  It  is  written  in  such  a  way  that  bigger  polygons  ar  eless  likely 

//  to  be  translated  far  form  their  original  plane.  The  polygon  has  to  be  2D!! 

//  Translation  is  accomplished  by  changing  the  Z  coordinate. 

void  Polygon  : :  translate_2d  (double  ratio,  double  MeanR) 

{ 

if  (ratio) 

{ 

double  maxDZ  =  ratio*MeanR*MeanR/radius; 

double  translation  =  RandomBC ( -maxDZ ,  maxDZ); 

Point*  current=  head; 
int  i; 

for  (i=0;  i<noP;  ++i) 

{ 

(current->Z)  +=  translation; 
current=current->next ; 

center. Z  +=  translation; 

}  ; 

return; 

}  ; 


//  Procedure  to  find  the  distance  from  a  point  P  to  a  polygon.  The 
calculations 

//  are  in  the  FRAME  OF  REFERENCE  of  the  polygon.  The  orthogonal  progection 
//  PI  of  the  point  is  found  and  if  it  is  within  the  polygon,  the  distance  PP1 

//  is  the  shortest  distance.  If  not,  the  point  of  interseciton  P2  of  the 

//  line  between  PI  and  the  center  of  the  polygon  is  found. PP2  is  then  the 

//.  shortest  distance  which  is  returned  by  the  function.  The  3d  polygon  and 
//  point  MUST  FIRST  BE  TRANSFORMED  INTO  LOCAL  COORDINATES  OF  THE  POLYGON. 


double  Polygon  : :  distance_from_point  (Points  P) 

{ 

Point  Pi  (P.X,  P.Y,  center. Z); 
double  distance; 

Point*  current  =  head; 
int  i  ; 

Line  11  (center,  PI) ; 
for  ( i  =  0 ;  i<noP;  ++i) 

{ 

Line  12(*current,  * current ->next ) ; 
if  ( 11 . intersect  (12)) 

{Point  P2  =  11 . intersection_with_line  (12); 
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distance  =  sqrt ( (P.X-P2 .X) * (P.X-P2 .X) +<P.Y-P2 .Y) * (P.Y-P2 .Y) + (P.Z-P2 .Z) * (P.Z- 
P2.Z)); 

return  distance;} 
else 

current  =  current->next; 

}  ; 


distance  =  P.Z  -  center. Z; 
if  (distance<0 . ) 

distance  *=  -1.; 
return  distance; 


} ; 


//  Procedure  to  find  the  shortest  distance  from  a  polygon  pol  (usually  a  new 
//  fracture)  to  another  polygon  (usually  a  major  feature  such  as  fault) . 

//  The  shortest  distance  from  a  verex  of  pol  to  the  major  polygon  is 
//  calculated  using  the  function  above.  The  initial  and  final  coordinates 
//  are  in  teh  global  f.o.r. 


double  Polygon  : :  distance_f rom_polygon  (Polygons  pol) 

{ 

int  LINE  =  0; 

Line  L; 

Cartesian  N  (Pole) ; 

Plane  p  (N,  *head,  setPole) ; 

if  (pol . if_intersects_plane  (p) ) 

{  L  =  pol . intersection_withjplane  (p) ; 

LINE  =1;} 

Polar  POLE  =  pol. Pole; 
pol. Pole  =  Pole; 
make_polygon_2d  ( )  ; 
pol .make_polygon_2d ( ) ; 

double  distance  =  distance_from_point ( *pol . head) ; 
if  (LINE) 

{L . local_coordinates  (Pole); 

int  HOW  =  how_line_intersects  (L) ; 

if  (HOW) 

distance  =  0.; 
else  {  . 

double  distancel  =  distance_f rom_point (L . endl) ; 
double  distance2  =  distance_f rom _point (L . end2 ) ; 
if  (distancel  <  distance) 

distance  =  distancel; 
if  (distance2  <  distance) 

distance  =  distance2; 

};  }  ; 


if ' (distance) 

{ 
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int  i  ; 

double  temp; 

Point*  current  =  pol .head->next; 

for  ( i = 1 ;  i<pol.noP;  ++i) 

{ 

temp  =  distance_from_point  (*current) ; 
if  (temp  <  distance); 

distance  =  temp; 
current  =  current->next; 

);  }  ; 


make_polygon_3d( ) ; 
pol  .make_polygon_3d( )  ; 
pol . Pole  =  POLE; 


return  distance; 
}  ; 


//Procedure  to  find  if  the  argument  polygon  is  in  front  of  or  behind  the 
//current  object  (the  fault) .  It  is  considered  "in  front  of"  if  the 
//dot  product  between:  1)  the  vector  connecting  the  center  of  the  fault  to 
//center. of  the  polygon,  and  2)  the  pole  of  the  fault,  is  positive. 

boolian  Polygon: : if_front_of_polygon  (Polygons  p) 

{ 

Cartesian  faultpole (Pole) ; 

Point  vector (p . center) ; 

vector-center ; 

double  prod=faultpole*vector ; 

if (prod  >  0 . ) 

return  TRUE; 
else 

return  FALSE; 

}  ; 


//  Function  to  create  a  test  polygon  in  the  plane  Z=0.  Four  points  are 
randomly 

//  selected,  one  in  each  quadrant. 

void  Polygon :: create_test_polygon ( ) 

{ 

Point  PI,  P2,  P3,  P4; 

double  dl ,  d2 ,  d3 ,  d4 ,  al ,  a2 ,  a3 ,  a4 ; 
double  d_l,  d_h,  a_l,  a_h; 

d_l=0.7*Xm; 
if (Ym<Xm) 
d_l  =  0.7*Ym; 
d_h= 1 . 4  *d_l ; 
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a_l =0.5236; 
a_h=l . 0472  ; 

dl=RandomBC (d_l , 
d2=RandomBC (d_l, 
d3  =RandomBC ( d_l , 
d4=RandomBC ( d_l , 

al=RandomBC ( a_l , 
a2  =RandomBC ( a_l , 
a3  =RandomBC ( a_l , 
a4=RandomBC ( a_l , 

Pl.X=dl*cos(al) ; 
P2 .X=d2*cos (a2 )  ; 
P3 .X=-d3*cos (a3 ) 
P4 .X=-d4*cos (a4) 


d_h)  ; 
d_h)  ; 
d_h)  ; 
d_h)  ; 

a__h)  ; 
a_h)  ; 
a__h)  ; 
a_h)  ; 


Pl.Y=dl*sin(al) ;  Pl.Z=0.; 

P2 .Y=-d2*sin(a2) ;  P2.Z=0.; 
P3 .Y=-d3*sin(a3)  ;  P3.Z=0.; 
P4 .Y=d4*sin(a4) ;  P4.Z=0.; 


add_j?oint ( PI ) ;  add_point ( P2 ) ;  add_point ( P3 ) ;  add_point ( P4 ) ; 

f ind_center ( )  ; 
f ind_area_radius_2d ( ) ; 

Point*  current=head; 
int  i ; 

for ( i=0 ;  i<noP;  ++i) 

{ 

current->X  =  current->X  -  center. X; 
current->Y  =  current->Y  -  center. Y; 
current  =  current->next; 

} ; 


f ind_center ( ) ; 
return; 

}  ; 

//  NEWLY  ADDED  FUNCTION.  AUG  18,  2000 

//  returns  the  line  of  intersection  between  two  polygons,  use  only  after 
determining  that 

//  the  two  polygons  intersect,  note  that  the  case  for  non-intersecting 

polygons  is  not 

//  handled  in  this  function. 

//  function  that  finds  the  length  of  intersection  with  another 
//  polygon,  use  if_polygon_intersects ( Polygons)  function  first 
//  to  determine  if  the  polygons  intersect. 

//  the  polygons  are  in  2D!!! 

//  VERY  IMPORTANT  REMINDER! ! ! 

/ /  MAKE  SURE  THAT  THE  OBJECTS  ARE  IN  THE  SAME  FRAME  OF  REFERENCE 
/ /  BEFORE  CALCULATING  INTERSECTION  LENGTHS ! ! ! 

Lines  Polygon: :line_of_intersection_with_polygon( Polygons  pol) 

{ 

/ /make_polygon_2d ( ) ; 

//sort_points_2d( ) ; 

/ /make_polygon_3d ( ) ; 
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//pol .make_polygon_2d( ) ; 

/ /pol . sort  j>oints_2d ( ) ; 

//pol .make_polygon_3d ( ) ; 

//  this  case  is  for  two  line  segment  intersections  that  have  no 
//  common  points 

cout« " in  line_of_intersection_with_polygon ( ) \n" ; 

Plane  Planel (*head, * (head->next) ,* (head->next->next) ); //  3D  Plane  object 
Plane  Plane2 (* (pol. head) , * (pol .head- >next) , * (pol .head->next->next) ) ; //  3D 
Plane 

//Polygon  polyl,  poly2; 

//polyl=make_initial (Planel,  rock);//  "rock"  is  the  name  of  the  modeling 
//poly2=make_initial (Plane2,  rock);//  volume,  both  in  3D 

Line  linel,  line2; 

//linel=polyl . intersection_with_plane (Plane2 ) ; 

//line2=poly2 . intersection_with_plane (Planel) ; 

linel=intersection_with_plane ( Plane2 ) ; 
line2=pol . intersection_with_plane (Planel) ; 

//  sorting  of  the  points  according  to  position  with  respect  to 
//a  chosen  reference  point. 

Cartesian  dirl,  factorl,  factor2; 

//  the  Point  endl  of  linel  is  chosen  as  the  reference  point. 

//  linel:  vector  pointing  from  endl  to  end2 
dirl  ,X=linel .end2 .X-linel .endl .X; 
dirl . Y=linel . end2 . Y-linel . endl . Y; 
dirl . Z=linel . end2 . Z-linel . endl . Z  ; 

//  vector  pointing  from  linel. endl  to  line2.endl 
factorl .X=line2 . endl .X-linel . endl .  X; 
factorl .Y=line2 .endl .Y-linel .endl .Y; 
factorl . Z=line2 .endl . Z-linel . endl . Z; 

//  vector  pointing  from  linel. endl  to  Iine2.end2 
factor2 .X=line2 . end2 .X-linel . endl .X; 
factor2 ,Y=line2 .end2 .Y-linel .endl .Y; 
factor2 . Z=line2 . end2 . Z-linel . endl . Z; 

//  now  use  the  overloaded  operator  /  to  sort  the  points  according 
//  to  their  position  with  respect  to  the  reference  point. 

factorl/=dirl ; //  est.  position  of  line2.endl 
factor2/=dirl; //  est.  position  of  Iine2.end2 

Line  *loi=new  Line;//  to  be  returned 

//double  scalarl,  scalar2; 

//scalarl= (sqrt ( (factorl .X) *2+ (factorl . Y) A2+ (factorl . Z) A2 ) ) /3 ; 

//scalar2= (sqrt ( (factor2 .X) A2+ (factor2 . Y) A2+ ( factor2 . Z) A2 ) ) /3 ; 

//  if  all  the  components  of  a  resulting  Cartesian  are  +,  then 
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//  it  points  the  same  direction  as  dirl. 

//  make  a  switch  for  the  four  possible  cases 
//  case  1:  factorl  and  factor2  are  both  + 

/ /  case  2 :  factorl  and  f actor2  are  both  -  cannot  happen 
//  because  only  intersecting  fractures  are  processed  here 
//  case  3:  factorl  is  +  and  factor2  is  - 
//  case  4:  factorl  is  -  and  factor2  is  + 

if  (factorl .X>=0  &&  factorl. Y>=0  &&  factorl. Z>=0  &&  factor2.X>=0  && 
factor2.Y>=0  &&  factor2 . Z>=0) 

{ 

Point  Side_0ne[2]; 

Side_One[0] =line2 .endl; 

Side_One [1] =line2 . end2 ; 

Point  farthest_point=linel . end2 ; 

double  max_distance_to__point=linel . length,  distance=0; 
int  i=0 ; 

for  ( i=0 ; i<2 ; i++) 

{ 

distance=sqrt ( (Side_One [i] .X-linel .endl .X) * (Side_One [i] .X- 
linel . endl . X) + (Side_One [ i ] .Y- 

linel .endl .Y) * (Side_One[i] .Y- 

linel . endl . Y) + (Side_One [i] . Z-linel . endl . Z) * (Side_One [ i] . Z- linel . endl . Z) ) 

if  (distance>max_distance_to_point) 

{ 

max_distance_to  _point=distance; 
farthest__point=Side_One [i]  ; 

} 

} 

if  (farthest _point==linel . end2 ) 

{ 

*loi=line2 ; 
cout«line2  ; 
return  (*loi); 

} 

if  (farthest_point==Side_One [0] ) 

{ 

Line  line3 ( linel . end2 , line2 . end2 ) ; 

*loi=line3 ; 
cout«line3  ; 
return  (*loi); 

} 

if  (farthe'st_point==Side_One[l]  ) 

{ 

Line  line4 (linel .end2 , line2 .endl) ; 

*loi=line4; 
cout<<line4 ; 
return  (*loi); 

} 

) 

if  (factorl. X>0  &&  factorl. Y>0  &&  factorl. Z>0  &&  factor2.X<0  && 
factor2.Y<0  &&  factor2.Z<0) 

{ 

double  distancel=0; 
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distancel=sqrt ( (line2 . endl .X-linel . endl .X) * (line2 . endl .X- 
linel . endl .X) + (line2 . endl . Y- 

linel . endl . Y) *( line2 . endl . Y- 

linel . endl . Y) + ( line2 . endl . Z-linel . endl . Z) * (line2 . endl . Z-linel . endl . Z) ) 
if  (distancel>=linel . length) 

{ 

*loi=linel; 
cout«  linel; 
return  (*loi) ; 

} 

if  (distancel<linel . length) 

{ 

Line  line5 (linel .endl,  line2.endl); 

*loi=line5; 
cout«line5; 
return  (*loi) ; 

} 

} 

//  actually  this  case  needs  no  'if'  statement!! 

if  (factorl.X<0  &&  factorl.Y<0  &&  factorl.Z<0  &&  factor2.X>0  && 
factor2.Y>0  &&  factor2.Z>0) 

{ 

double  distance2=0; 

distance2=sqrt ( (line2 ,end2 .X-linel .endl .X) * (line2 .end2 .X- 
linel . endl .X) + (line2 ,end2 .Y- 

linel.endl.Y) * (line2 .end2 .Y- 

linel . endl . Y) + (line2 ,end2 . Z-linel . endl . Z) * (line2 . end2 . Z-linel .endl . Z) ) 
if  (distance2>=linel . length) 

{ 

*loi=linel; 
cout«linel; 
return  (*loi) ; 

) 

if  (distance2<linel . length) 

{ 

Line  line6 (linel .endl,  Iine2.end2); 

*loi=line6; 
cout«line6; 
return  (*loi)  ; 

} 

} 

} ; 
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random.C 


ii  ******************************************************************* 

//*  GEOFRAC  * 

//  *  Copyright  Massachusetts  Institute  of  Technology  1995-1998  * 

//  *  Violeta  Ivanova,  Thomas  Meyer,  Herbert  Einstein  * 

//  *  * 
II  *  Don't  use  or  modify  without  written  permission  * 

//  *  (contact  einstein@mit.edu)  * 

II  ******************************************************************* 


# include  <math.h> 
#include  <iostream.h> 
((include  <stdlib.h> 


({include  "polar. h" 
class  Polar; 


int  rand (void) ; 

//  Procedure  to  generate  a  random  number  between  0  and  1 

double  RandomOl  () 

{ 

double  random_number  =  (float)  rand()  /  (float)  32767; 
return  random_number ; 

} ; 


//  Procedure  to  generate  a  random  number  between  0  and  a  specified  value 

double  RandomOa  (double  a) 

{ 

double  random__number  =  a  *  (float)  rand()  /  (float)  32767; 
return  random_number ; 

} ; 


//  Procedure  to  generate  a  random  number  between  two  numbers  b  and  c 


double  RandomBC  (double  b,  double  c) 

{ 

if  (c<b) 

{float  temp=c; 
c=b; 

b=temp; } 

double  random_number  =  b+(c-b) 
return  random_number ; 


}; 


* 


(float) 


rand ( ) 


/ 


(float)  32767; 


//  Procedure  to  generate  an  orientation  in  spherical  coordinates  (phi, theta) 
//  according  to  a  uniform  distribution  on  a  unit  hemisphere 

Polar  ran_uniform_orientation (void) 
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{ 

double  fromX  =  RandomBC  (-PI,PI); 
double  fromZ  =  RandomOa  (Half PI) ; 
Polar  orientation  (fromX,  fromZ); 
return  orientation; 

}  ; 


//  Procedure  to  generate  an  orientation  in  spherical  coordinates  (phi, theta) 
//  according  to  a  uniform  distribution  on  a  unit  hemisphere  where  theta 
//  varies  between  -PI  and  PI,  and  phi  between  0  and  PhiMax  <  Half PI 

Polar  unif orm_max_phi_orient (double  PhiM) 

{ 

double  fromX  =  RandomBC  (-PI,  PI); 
double  fromZ  =  RandomOa  (PhiM) ; 

Polar  orientation  (fromX,  fromZ); 
return  orientation; 

}  ; 

//  Procedure  to  generate  constant  orientation  equal  to  the  mean  orientation 
//  in  spherical  coordinates  (MeanTheta,  MeanPhi) 

Polar  constant_orientation (void) 

{ 

Polar  orientation; 

return  orientation; 

} ; 


//  Procedure  to  generate  an  orientation  according  to  a  univariate  Fisher 
//  distribution  on  a  unit  hemisphere 

Polar  Fisher_orientation  (double  k) 

{double  fromX  =  RandomBC  (-PI,  PI); 

double  fromZ  =  acos (l/k*log (exp (k) - (RandomOl ())* (exp (k) -1) )) ; 

Polar  orientation  (fromX,  fromZ) ; 
return  orientation; 

} ; 


//  Procedure  to  generate  an  orientation  according  to  a  bivariate  Fisher 
//  distribution  on  a  unit  hemisphere 

Polar  bivariate_Fisher_orientation  (double  kl,  double  k2) 

{double  fromX  =  RandomBC  (-PI,  PI) ; 

double  K  =  kl*sin (fromX) *sin ( fromX)  +  k2*cos (fromX) *cos (fromX) ; 
double  fromZ  =  acos (l/K*log(exp(K) - (RandomOl ())* (exp(K)-l) )) ; 
Polar  orientation  (fromX,  fromZ); 
return  orientation; 

}  ; 


//  Procedure  to  generate  a  value  (distance,  area  or  other  continuous 
//  variable)  according  to  an  exponential  distribution  with  density  lambda. 
//  A  random  number  is  generated  uniformly  between  0  and  1,  and  then 
//  the  cumulative  exponential  distribution  is  used  to  back-calculate 
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//  an  exponentially  distributed  value. 

//  exp.  pdf (rv) =lambda*exp (~lambda*rv) ;  cum.  PDF (rv) =l-exp ( -lambda*rv) ; 

double  exp_value  (double  lambda) 

{ 

double  y  =  RandomOl  (); 
double  RV  =  - (log (1-y) ) /lambda; 
return  RV; 

} ; 


//  Procedure  to  calculate  a  random  Poisson  number  with  expected  value 
//  N=lambda*A,  where  lambda  is  the  density  of  the  process  (mean  occurrence 
//  per  unit  area  (or  per  unit  distance,  etc.),  and  A  is  the  total  area  (or 
//  distance,  etc.).  This  procedure  is  used  mainly  to  calculate  the  random 
//  number  of  lines  which  will  produce  a  line  tessellation  of  intensity 
//  lambda  over  a  polygon  with  area  A. 

int  PoissonN  (double  lambda,  double  Area) 

{ 

int  PN  =  0; 
double  sumA  =  0 . ; 
do  { 

PN++; 

sumA  +=  exp_value  (lambda) ; 

} 

while  (sumA  <  Area) ; 
return  (PN-1) ; 

}  ; 
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rotation.C 


ii  ******************************************************************* 

GEOFRAC  * 

Copyright  Massachusetts  Institute  of  Technology  1995-1998  * 

Violeta  Ivanova,  Thomas  Meyer,  Herbert  Einstein  * 

* 

Don't  use  or  modify  without  written  permission  * 

{contact  einstein@mit.edu)  * 

**************************************************************** 

# include  "cartesian.h" 

# include  "point.h" 

#include  "polygon. h" 

#include  "listpol.h" 
extern  of stream  out; 
extern  double  Xm,  Ym; 
extern  double  MeanArea; 
double  RandomOl  (); 


double  RandomBC  (double,  double) ; 


//  * 

//  * 

//  * 

//  * 

//  * 

//  * 
jj  ★  ★  ★ 


//  Procedure  to  mark  the  polygon  so  that  it  is  subparallel  to 

//  the  strike  of  a  surface  at  its  center.  The  strike  of  a  surface 

//  is  calculated  with  function  of  class  Surface.  A  ration  Ps  of  polygons 

//  is  marked  as  fractures  if  the  angle  between  the  strike  of  the  polygon 

//  and  the  strike  of  the  surface  does  not  exceed  the  specified  angle.  Angle 

//  between  the  strike  is  calculated  using  the  dot  product  between  two 

//  unit  vectors:  cos  angle  =  al*a2  +  bl*b2  +  cl*c2. 

boolian  Polygon  : :  mark_parallel_to_strike  (double  Sstrike,  double  angle, 
double  Ps) 

{ 

double  cosD  =  cos (Sstrike) *cos (strike) +sin (Sstrike) *sin(strike) ; 
if  ( (cosD  >=  cos (angle)  &&  cosD  <=1  ||  cosD<=-cos (angle)  &&  cosD>=-l.)  && 
RandomOl  ()  <  Ps) 
return  TRUE; 
else 

return  FALSE; 

}; 


//  Procedure  to  mark  the  polygon  so  that  it  is  sub  orthogonal 

//  to  the  strike  of  a  surface  at  its  center.  The  strike  of  a  surface 

//  is  calculated  with  function  of  class  Surface.  A  ration  Po  of  polygons 

//is  marked  as  fractures  if  the  angle  between  the  strike  of  the  polygon  and 

//  the  strike  of  the  surface  deviates  from  PI/2  not  more  that  a  specified 

//  angle.  Angle  between  the  strike  is  calculated  using  the  dot  product 

//  between  two  unit  vectors:  cos  angle  =  al*a2  +  bl*b2  +  cl*c2. 
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boolian  Polygon  : :  mark_orthogonal_to_s trike  (double  Sstrike,  double  angle, 
double  Po) 

{ 

double  cosD  =  cos (Sstrike) *cos (strike) +sin (Sstrike) *sin (strike) ; 
if  (  cosD  >=  -sin (angle)  &&  cosD  <=  sin (angle)  &&  RandomOlO  <  Po) 
return  TRUE; 
else 

return  FALSE; 

}  ; 


//  Procedure  to  mark  the  polygon  accoding  to  its  dip  compared  to  the  dip  of 
//  a  surface.  Both  dips  are  between  zero  and  PI/2.  Return  True  if  the  dip 
//  difference  is  smaller  than  teh  specified  angle. 

boolian  Polygon  ::  mark_by_dip  (double  Sdip,  double  angle,  double  P) 

{ 

double  cosD  =  cos (Sdip) *cos (dip) +sin (Sdip) *sin (dip) ; 
if  (  cosD  >=  -sin (angle)  &&  cosD  <=  sin (angle)  &&  RandomOlO  <  P) 
return  TRUE; 
else 

return  FALSE; 


}  ; 


//  Procedure  to  rotate  a  polygon.  The  arguments  are  the  new  latitude  and 
//  azimuth  (theta  and  phi)  of  the  polygon  pole  in  the  absolute  frame  of 
//  reference. 

void  Polygon  : ;  rotate_by_strike  (double  NewStrike) 

{ 

Cartesian  V(center.X,  center. Y,  center.  ZK- 
^thisJ-V; 
make_polygon_2d ( ) ; 

i f  ( RandomBC (-1.,  1 . ) >=  0.) 

{ 

Pole. theta  =  NewStrike  +  Half PI; 
if  (Pole. theta  >  PI) 

Pole. theta  -=  TwoPI; 

} 

else 

{ 

Pole. theta  =  NewStrike  -  Half PI; 
if  (Pole. theta  <  PI) 

Pole. theta  +=  TwoPI; 

}  ; 

make_polygon_3d() ; 
strike  =  NewStrike; 

(*this)+V; 
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return; 

}  ; 


//  Procedure  to  rotate  a  polygon.  The  arguments  are  the  new  latitude  and 
//  azimuth  (theta  and  phi)  of  the  polygon  pole  in  the  absolute  frame  of 
//  reference. 

void  Polygon  ::  rotate_by_dip  (double  NewDip) 

{ 

Cartesian  V(center.X,  center. Y,  center. Z); 

( *this) -V; 
make_polygon_2d ( ) ; 


Pole. phi  =  NewDip; 
make_polygon_3d ( ) ; 


(*this) +V; 

return; 

}  ; 


//  Procedure  to  mark  the  polygons  in  a  list  according  to  their  strike 
//  compared  to  the  strike  of  a  surface  at  their  centers.  Polygons  are 
//  retained  in  the  list  if  the  difference  in  strike  does  not  exceed  some 
//  specified  angle. 


void  ListPolygons  ; :  mark_parallel_to_strike  (Surfaces  S,  double  angle,  double 
Pc) 

{ 

Node*  current  =  head_pol; 
int  i=0; 

Polar  SD; 

for  (i=0;  i<Npol;  ++i) 

{ 

SD  =  S . strike_dip_at_point  (current->content->center) ; 

if  ( ! (current->content->mark_parallel_to_strike  (SD. theta,  angle,  Pc))) 

{ 

double  anglel  =  RandomBC ( -angle,  angle)  +  SD. theta; 
current->content->rotate_by_strike  (anglel) ; 

}  ; 

current  =  current->next_pol;  }; 

return; 

}  ; 


//  Procedure  to  mark  the  polygons  in  a  list  according  to  their  strike 
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//  compared  to  the  strike  of  a  surface  at  their  centers.  Polygons  are 
//  retained  in  the  list  if  the  difference  in  strike  does  not  exceed  some 
//  specified  abgle. 


void  ListPolygons  : :  mark_orthogonal_to_strike  (Surfaces  S,  double  angle, 
double  Pr) 

{ 

Node*  current  =  head_pol; 
int  i=0; 

Polar  SD; 

for  (i=0;  i<Npol;  ++i) 

{ 

SD  =  S . strike_dip_at_point  (current->content->center) ; 

if  ( ! (current->content->mark_orthogonal_to_strike  (SD. theta,  angle,  Pr) ) ) 

{ 

double  anglel  =  RandomBC ( -angle,  angle)  +  SD. theta  +  Half PI; 
current->content->rotate_by_strike  (anglel) ; 

}  ; 

current  =  current ->next_pol ;  } ; 

return; 

}  ; 


//  Procedure  to  mark  the  polygons  according  to  the  strike  of  a  surface. 

7/  If  the  polygon  is  either  sub  parallel  or  sub  orhtogonal  to  the  strike 
//  of  the  surface,  its  orientation  is  kept.  Otherwise,  the  polygon  is 
//  rotated  to  be  sub  parallel  if  the  character  option  is  C,  or  sub  orthogonal 
//  if  the  character  option  is  R 

void  ListPolygons  ::  mark_by_strike  (Surfaces  S,  double  angle'R,  double  angleC, 
double  angle2,  char  option,  double  Pr,  double  Pc) 

{ 

Node*  current  =  head_pol; 
int  i=0; 

Polar  SD; 

for  (i=0;  i<Npol;  ++i) 

{ 

SD  =  S . strike_dip_at_point  (current->content->center)  ; 

if  ( ! (current->content->mark_orthogonal_to_strike  (SD. theta,  angleR,  Pr) )  && 

! ( current ->content->mark_parallel_to_s trike  (SD. theta,  angleC,  Pc))) 

{ 

double  new_strike; 
if  (option  ==  ' c ' ) 

new_strike  =  RandomBC ( -angle2 ,  angle2)  +  SD. theta; 
if  (option  ==  ' r ' ) 

new^_strike  =  RandomBC ( -angle2 ,  angle2)  +  SD. theta  +  Half PI; 
if  (new_strike  >  PI) 
new_strike  -=  TwoPI; 
if  (new_strike  <  -PI) 
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new_strike  +=  TwoPI; 


current->content->rotate_by_strike  (new_strike) ; 

}  ; 

current  =  current->next_pol;  }; 

return; 

} ; 


//  Procedures  to  mark  the  polygons  in  alist  according  to  their  dips.  If  the 
dips 

//  are  close  to  that  of  the  surface,  they  are  kept.  Otherwise  the  polygons 
//  are  rotated 

void  ListPolygons  ::  mark_by_dip  (Surfaces  S,  double  anglel,  double  angle2, 
double  P) 

{ 

Node*  current  =  head_pol; 
int  i=0; 

Polar  SD; 

for  ( i  =  0 ;  i<Npol;  ++i) 

{ 

SD  =  S . strike_dip_at_point  (current->content->center) ; 
if  ( ! (current->content->mark_by_dip  (SD.phi,  anglel,  P)  )) 

{ 

double  new_dip  =  RandomBC ( -angle2 ,  angle2)  +  PI/2  -  SD.phi; 

current->content->rotate_by_dip  (new_dip) ; 

}  ; 

current  =  current->next_pol ;  }; 

return; 

} ; 


void  ListPolygons  ::  mark_by_dip  (CubicS  C,  double  anglel,  double  angle2, 
double  P) 

{ 

Node*  current  =  head_pol; 
int  i=0; 

Polar  SD; 

for  ( i=0 ;  i<Npol;  ++i) 

{ 

SD  =  C . strike_dip_at_point  (current->content->center) ; 
double  Ctheta  =  SD. theta  +  Half PI; 
if  (Ctheta  >  PI) 

Ctheta  -=  TwoPI; 


if  ( ! (current->content->mark_by_dip  (SD.phi,  anglel,  P)  )) 

{ 

double  new_dip  =  RandomBC ( -angle2 ,  angle2)  -  SD.phi  +  HalfPI; 
if  (  (current->content->Pole . theta) *Ctheta  >0.  ) 
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{ 


if  (  current->content->Pole . theta  >=  0.) 
current->content->Pole . theta  --  PI; 

else 

current->content->Pole . theta  +=  pi; 


current->content->rotate_by_dip  (new_dip) ; 

} ; 

current  =  current->next_pol ;  }; 

return ; 

}  ; 


//  Procedure  to  mark  the  polygons  according  to  the  strike  of  a  CUBIC  surface. 
//  If  the  polygon  is  either  sub  parallel  or  sub  orhtogonal  to  the  strike 
//of  the  surface,  its  orientation  is  kept.  Otherwise,  the  polygon  is 
//  rotated  to  be  sub  parallel  if  the  character  option  is  C,  or  sub  orthogonal 
//  if  the  character  option  is  R 

void  ListPolygons  : :  mark_by_strike  (Cubic&  C,  double  angleR,  double  angleC, 
double  angle2,  char  option,  double  Pr,  double  Pc) 

{ 

Node*  current  =  head _pol ; 
int  i=0; 

Polar  SD; 

for  (i=0;  i<Npol;  ++i) 

{ 

SD  =  C . strike_dip_at_point  (current->content->center) ; 

if  ( ! (current->content->mark_orthogonal_to_strike  (SD. theta,  angleR,  Pr) )  && 

! ( current ->content->mark_parallel_to_s trike  (SD. theta,  angleC,  Pc))) 

{ 

double  new_strike; 
if  (option  ==  ' c ' ) 

new_strike  =  RandomBC ( -angle2 ,  angle2)  +  SD. theta; 
if  (option  ==  ' r ' ) 

new_strike  =  RandomBC ( -angle2 ,  angle2)  +  SD. theta  +  Half PI ; 

if  (new_s trike  >  PI) 
new_strike  -=  TwoPI; 
if  (new_strike  <  -PI) 
new_strike  +=  TwoPI; 

current->content->rotate_by_strike  (new_strike) ; 

} ; 

current  =  current->next_pol ;  }; 

return; 

}  ; 


304 


stat.C 

ii  ******************************************************************* 

//*  GEOFRAC  * 

//  *  Copyright  Massachusetts  Institute  of  Technology  1995-1998  * 

//  *  Violeta  Ivanova,  Thomas  Meyer,  Herbert  Einstein  * 

//  *  * 
//  *  Don't  use  or  modify  without  written  permission  * 

//  *  (contact  einstein@mit.edu)  * 

/I  ******************************************************************* 

stat  .h 
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surface. C 


// 

* 

G  E  0  F  R  A  C 

* 

// 

* 

Copyright 

Massachusetts  Institute  of  Technology  1995-1998 

* 

// 

* 

Violeta  Ivanova,  Thomas  Meyer,  Herbert  Einstein 

* 

// 

* 

* 

// 

★ 

Don 1 

1 1  use  or  modify  without  written  permission 

★ 

// 

* 

(contact  einstein@mit.edu) 

* 

ii  ******************************************************************* 

# include  "surface.h" 

# include  "line.h" 

boolian  Surface :: is_point_on_surf ace  (Points  p)  { 
double  zz=A*p.X*p.X+B*p.X*p.Y+C*p.Y*p.Y+D*p.X+E*p.Y+F; 
double  dif  =  p.Z-zz; 
if  (dif>=-0. 000001  SS  dif<=0. 000001) 

(return  TRUE;} 
else 

(return  FALSE;}; 

} ; 


//  Procedure  to  calculate  if  a  point  P(X,Y,Z)  is  above  or  below  a  surface. 

//  If  Z<z  on  the  surface  at  (X,Y) ,  the  point  is  below  and  the  function  returns 

-1. 

//  If  Z>z  on  the  surface  at  (X,Y) ,  the  point  is  above  and  the  function  returns 
1. 

int  Surface  : :  is_point_above_below  (Points  P) 

( 

if  (is_point_on_surface  (P) ) 
return  0 ; 

double  zz  =  f ind_Z_on_surf ace  (P.X,  P.Y); 
if  (P.Z>zz) 

(return  1;  };  //  The  point  is  above  the  surface 

if  (P.Z<zz) 

(return  -1;  };  //  The  point  is  below  the  surface 

}  ; 


boolian  Surface is_line_on_surf ace  (Lines  1)  { 

if  ( (is_point_on_surface (1 . endl) )  SS  (is_point_on_surface ( 1 . end2 ) ) ) 
return  TRUE; 
else 

return  FALSE; 

}  ; 


//  Procedure  to  find  out  if  a  line  lies  above  or  below  a  surface,  or  if  the 
line 
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//  intersects  the  surface.  1  is  returned  if  both  ends  of  the  line  are  above 
the 

//  surafce,  -1  if  they  are  below  the  surface.  If  one  end  is  above  and  the 
other 

//  one  is  below  the  surface,  0  is  returned  to  inticate  that  the  line 
//  intersects  the  surface. 


int  Surface  : :  how_line_intersect  (Lines  L) 
{ 


int  al  =  is_point_above_below 
int  a2  =  is_point_above_below 
if  (al*a2  <  0) 
return  0; 

else  if  (al+a2  >  0) 
return  1; 
else 

return  -1; 

}; 


( L . endl ) ;  - 

(L.end2)/• 

//  The  line  intersects  the  surface 

//  Both  ends  are  on  the  same  side  of  the  surface 
//  The  line  is  above  the  surface 

//  The  line  is  below  the  surface 


//  This  function  calculates  the  coordinates  of  the  normal  vector 
//  to  a  quadratic  surface  at  a  point  p(X,Y,Z)  on  the  surface. 

//  The  normal  vector  is  defined  by  the  first  derivative  of  the 
//  surface  equation  f(x,y,z)=0,  i.e.  n= (df /dx, df /dy, df /dz) . 

//  For  quadratic  surface  (see  definiton  of  class  Surface) 

//  the  normal  vector  is  (-2*A*X-B*Y-D,  -2*C*Y-B*X-E,  1) 

Cartesian  Surface: :normal_at_point (Points  p)  { 
double  xx=2  *A*p . X+B*p . Y+D ; 
double  yy=2*C*p. Y+B*p.X+E; 

Cartesian*  vector  =  new  Cartesian ( -xx,  -yy,  1.); 
return  (*vector); 

}  ; 


//  This  function  finds  the  Z  coordinate  of  an  (X,  Y)  point  such  that 
//  point  (X, Y, Z)  is  on  the  given  surface 

double  Surface :: find_Z_on_surface  (double  x,  double  y)  { 
double  Z=A*x*x+B*x*y+C*y*y+D*x+E*y+F; 
return  Z; 

}  ; 


//  This  function  finds  the  azimuth  and  latitude  of  a  surface  at  a  point. 

//  Latitude  is  calculated  as  the  angle  from  north  (axis  X) .  Positive  values 
//  are  to  the  east,  negative  values  are  to  the  west.  Axis  Y  is  east. 

//  Azimuth  is  calculated  as  the  angle  between  the  normal  vector  at  the  point 
//  and  the  vertical  axis  Z.  A  Polar  (latitude,  azimuth)  is  returned. 

//  The  coordinate  system  (X,Y,Z)  is  left-handed. 

Polar  Surface : :polar_normal_at_point  (Points  p)  { 

Cartesian  N  =  normal_at_point (p) ;  . 
double  theta,  phi; 
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double  13d  =  sqrt (N.X*N.X+N. Y*N. Y+N. Z*N. Z) ; 
double  12d  =  sqrt (N.X*N.X+N. Y*N. Y) ; 

phi  =  asin (12d/13d) ; 
theta  =  acos (N. Y/12d) ; 
if  (N.X<0.) 

theta *=-l . ; 

Polar*  polar_normal  =  new  Polar (theta,  phi); 
return  (*polar_normal) ; 

}  ; 


//  This  function  returns  the  strike  and  dip  of  a  surface  at  a  point, 

//  calculated  as  the  strike  and  dip  of  a  tangent  plane.  Dip  is  between  zero 
//  and  pi/2  measured  from  the  horizontal  to  the  slope  in  a  vertical  plane. 
//  Strike  is  between  -pi  to  pi,  negative  values  are  west  from  north, 

//  positive  values  are  east  from  north. 

//  The  system  NTB  is  left-handed,  where  N  is  the  normal  vector,  T  is  the 
//  strike  tangent  vector,  and  B=NxT  is  binormal  pointing  upward  along 
//  the  dip. 

Polar  Surface :: strike_dip_at_point  (Points  p)  { 

Polar  SD  =  polar_normal_at_point (p) ; 

SD. theta-=Half PI ; 

if  (SD. theta  <  -PI) 

SD . theta+=TwoPI ; 
return  SD; 

}  ; 

//  This  function  calculates  the  volume  enclosed  under  the  surface  over  the 
//  rectangular  area  (x,  y)  where  x=[-xm,  xm]  and  y=[-ym,  ym] 

double  Surface :: find_enclosed_volume  (double  xm,  double  ym)  { 

double  volume  =  xm*ym* (4 . /3 . * (A*xm*xm+C*ym*ym) +B*xm*ym+2 . * (D*xm+E*ym) +4 . *F) ; 
return  volume; 

}  ; 


//  Function  to  find  the  maximum  Z  value  of  a  surface  above  a  rectangular 
//  area  bounded  by  X,  -X,  Y,  and  -Y.  Zmax  is  chosen  to  be  the  maximum  value 
//  of:  1)  the  values  at  the  four  end  points;  2)  the  local  maximum  of  the 
//  function  along  the  edges,  if  such  a  maximum  exists;  3)  the  local  maximum 
//  inside  the  area  (X,Y),  if  such  a  maximum  exists.  A  local  maximum  of  f (x) 
//  exists  at  the  point  where  the  df/dx  is  zero,  and  dA2f/dxA2  is  negative. 
//  For  f(x,  y)  the  function  has  a  local  maximum  if  df /dx=df /dy=0 ,  and 
//  dA2f /dxA2*dA2f /dyA2- (dA2f /dxdy) A2<0 .  This  procedure  ignores  some  cases 
//  for  which  the  test  is  inconclusive  (see  calculus  references) .  For  an 
//  upward  convex  surface  such  cases  are  unlikely. 

double  Surface :: Zmax_over_XY  (double  X,  double  Y)  { 
double  Zmax,  zz,  x,  y; 

Zmax  =  f ind_Z_on_surface  (X,  Y) ; 
zz  =  f ind_Z_on_surface  (-X,  Y) ; 
if  (zz>Zmax) 
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Zmax=zz ; 

zz  =  find_Z_on_surface  (-X,  -Y) ; 
if  (zz>Zmax) 

Zmax=zz; 

zz  =  f ind_Z_on_surface  (X,  -Y) ; 
if  (zz>Zmax) 

Zmax=zz; 

double  f  =  4*A*C-B*B; 

if  (f<0.)  //  possible  maximum  inside  (X,  Y) 

{  x=(B*E-2*D*C) /f ; 

y= (B*D-2*A*E) /f ;  //  point  where  1st  derivatives  are  0. 

zz  =  f ind_Z_on_surface (x,  y) ; 
if  (zz>Zmax) 

Zmax=zz; 

}  ; 


if  (C<0.)  //  possible  maximum  along  x=X  or  x=-X 

{ 

y= ( -E-B*X) / (2*C) ;  //  checking  max  along  x=X 

if  (y>-Y  &&  y<Y) 

zz  =  f ind_Z_on_surface (X,  y) ; 
if  (zz>Zmax) 

Zmax=zz; 

y= (-E+B*X) / (2*C) ;  //  checking  max  along  x=-X 

if  (y>-Y  &&  y<Y) 

zz  =  f ind_Z_on_surface (-X,  y) ; 
if  (zz>Zmax) 

Zmax=zz ; 

}  ; 


if  (A<0.)  //  possible  maximum  along  y=Y  or  y=-Y 

{ 

x=(-D-B*Y) / (2*A) ;  //  checking  max  along  y=Y 

if  (x>-X  &&  x<X) 

zz  =  f ind_Z_on_surface (x,  Y) ; 
if  (zz>Zmax) 

Zmax=zz; 

x= ( -D+B*Y) / ( 2 *A) ;  //  checking  max  along  y=-Y 

if  (x>-X  &&  x<X) 

zz  =  f ind_Z_on_surf ace (x, -Y) ; 
if  (zz>Zmax) 

Zmax=zz; 

}  ; 

return  Zmax; 

}  ; 
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volume.C 


ii  ******************************************************************* 

//*  GEOFRAC  * 

//  *  Copyright  Massachusetts  Institute  of  Technology  1995-1998  * 

//  *  Violeta  Ivanova,  Thomas  Meyer,  Herbert  Einstein  * 

//  *  * 
II  *  Don't  use  or  modify  without  written  permission  * 

//  *  (contact  einstein@mit.edu)  * 

II  ******************************************************************* 

#include  "volume. h" 

double  RandomOl  (); 

double  RandomOa  (double  a) ; 

double  RandomBC  (double  b,  double  c) ; 

extern  double  Xm,  Ym; 


//  Constructor  for  the  total  volume  enclosed  under  a  quadratic  surface  above 
//  a  rectangular  area  defined  by  the  vertical  planes  x=Xm,  x=-Xm,  y=Ym, 

//  and  y=-Ym.  The  origin  of  the  coordinate  system  is  assumed  to  be 

//  in  the  middle  of  the  rectangular  area,  on  the  horizontal  plane  bounding 

//  the  modeling  volume  from  below. 

Volume  : :  Volume  (Surfaces  ground) 

{ 

top=ground; 

P[0].X=Xm;  P[0].Y=Ym;  P[0].Z  =  top . f ind_Z_on_surface (Xm,  Ym)  ; 

P[l] .X=-Xm;  P[l] ,Y=Ym;  P[1].Z  =  top . f ind_Z_on_surf ace ( -Xm,  Ym) ; 

P[2] .X=-Xm;  P[2].Y=-Ym;  P[2].Z  =  top . find_Z_on_sur face ( -Xm,  -Ym); 

P[3] .X=Xm;  P[3] .Y=-Ym;  P[3].Z  =  top . f ind_Z_on_surf ace (Xm,  -Ym)  ; 
volume=top . f ind_enclosed_volume (Xm,  Ym) ; 

Zmax=top . Zmax_over_XY (Xm,  Ym) ; 

} ; 


//  Procedure  to  generate  a  random  point  inside  the  modeling  volume. 

//  The  coordinates  of  the  point  are  calculated  uniformly  as  x=U(-Xm,  Xm) , 
//  y=U(-Ym,  Ym) ,  z=U(0,  Zmax) .  After  that . it  is  calculated  if  it  is  inside 
//  the  modeling  volume  (if  Z  of  the  point  is  below  the  top  surface).; 

//  if  not,  a  new  point  is  generated. 

Point  Volume  : :  random_point ( )  { 

Point*  p  =  new  Point; 
do  { 

p~>X  =  RandomBC  (-Xm,  Xm) ; 
p->Y  =  RandomBC  (-Ym,  Ym) ; 
p->Z  =  RandomOa  (Zmax); 

} 

while  ( ! is_point_inside  (*p)); 

return  (*p); 

} ; 
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boolian  Volume  : :  is_point_inside  (Point&  p)  { 
if  (p.X>=-Xm  &&  p.X<=Xm  &&  p.Y>=-Ym  &&  p.Y<=Ym) 
{double  zz  =  top . find_Z_on_sur face (p.X,  p.Y) ; 
if  (  p.Z<=zz  ) 

return  TRUE ; } ; 
return  FALSE; 

}  ; 


//  Function  to  return  the  minimum  z -coordinate  of  the  4  corners  of  an 
//  object  Volume. 

double  Volume  : :  corner_min_z ( ) 

{ 

int  i  ; 

double  min_z=P[0] .Z; 
for(i=l;  i<4;  ++i) 

{ 

if (P[i] .Z  <  min_z) 
min_z=P [i] . Z; 

}  ; 

return  min_z; 

}  ; 
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zones.C 


ii  ******************************************************************* 

//  *  GEOFRAC  * 

//  *  Copyright  Massachusetts  Institute  of  Technology  1995-1998  * 

//  *  Violeta  Ivanova,  Thomas  Meyer,  Herbert  Einstein  * 

//  *  * 
//  *  Don't  use  or  modify  without  written  permission  * 

//  *  (contact  einstein@mit.edu)  * 

II  ******************************************************************* 

# include  "polygon.h" 

♦include  "listpol.h" 

♦include  <math.h> 

♦include  <iostream.h> 

♦include  <stdlib.h> 

♦define  FALSE  0 
♦define  TRUE  1 


double  RandomOl  ( ) ; 


//  Procedure  to  mark  a  polygon  with  a  zone  probability  Pi.  The  shortest 

//  distance  D  to  a  list  of  polygons  is  found  (the  faults) .  The  polygon  is 

//  considered  for  marking  only  if  it  is  located  in  front  of  the  fault  which 

//  is  exactly  at  distance  D.  Then  this  distance  is  compared 

//  to  distances  defined  by  the  array  zones  to  find  out  in  which  zone  i 

//  is  the  polygon.  Then  the  polygon  is  marked  as  fracture  with  a 

//  marking  probability  Pi  for  zone  i,  defined  by  the  array  marks.  The  function 

//  returns  TRUE  if  a  generated  random  number  is  smaller  than  Pi,  or  FALSE 

//  if  the  number  is  larger  than  Pi.  Pi  and  the  random  number  are  between  0. 

//  and  1. 


boolian  ListPolygons  : :  if_zone_mark_polygon  ( Polygons  pol,  int  Nzones, 
double*  zoneDmax,  double*  zoneP) 

{ 

double  D  =  shortest_distance_f rom_polygon  (pol) ; 
double  mark  =  * (zoneP+Nzones-1) ; 
int  MARKED  =  FALSE; 
int  i ; 

int  RESULT=FALSE; 
double  disttest; 

Node*  current =head_po 1 ; 
while  (current) 

{ 

disttest=D  -  current->content->distance_f rom_polygon (pol ) ; 
if (current->content->if_front__of_polygon(pol)  &&  disttest*disttest<0 . 0001) 
RESULT=TRUE ; 

current=current->next_pol ; 

}  ; 
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if (RESULT) 

{ 

for  ( i  =  0 ;  i<Nzones-l  &&  IMARKED;  ++i) 

{ 

if  (D  <  * (zoneDmax+i) ) 

{  mark  =  *(zoneP+i); 

MARKED  =  TRUE;  }; 

}  ; 

double  RN  =  RandomOlO; 
if  (RN  <=  mark) 

RESULT=TRUE ; 
else 

RESULT=FALSE ; 

} ; 

return  RESULT; 

}  ; 


//  Procedure  to  mark  a  polygon  if  he  belongs  to  a  zone  defined  by  a  box.  The 
//  polygon  can'  be  either  inside  or  outside  the  box,  with  associated  marking 
//  probabilities. 

boolian  Box: : if_box_mark_polygon ( Polygons  pol,  double*  zoneP) 

{ 

int  MARKED=FALSE; 
double  RN=Random01 ( ) ; 
double  mark=*zoneP; 

if ( is_point_inside (pol . center)  &&  RN<mark) 

MARKED=TRUE ; 

mark=* ( zoneP+1)  ; 

if (! (is_point_inside (pol . center) )  &&  RN<mark) 

MARKED=TRUE; 

return  MARKED; 

} ; 


//  Procedure  to  mark  the  polygons  in  a  list  of  polygons  with  zone 
//  probabilities  according  to  the  distances  to  another  list  of  polygons. 

//  The  argument  ListPolygons  are  teh  polygons  (usually  major  faults)  the 
//  distances  from  which  define  the  zones.  The  list  of  polygons  that  calls 
//  the  function  (usually  new  fractures)  are  the  ones  that  are  being  marked. 

void  ListPolygons  ::  mark_by_zones  (ListPolygons&  lp,  int  Nzones,  double* 
zoneDmax,  double*  zoneP) 

{ 

Node*  current  =  head_pol; 
while  (current  ->  next_pol) 

{ 

if  ( ! (lp . if_zone_mark_polygon  ( *current->next_pol->content,  Nzones,  zoneDmax, 
zoneP) ) ) 
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{  if  (current->next_pol->next_pol) 

delete  current->next_pol->content; 
current ->next_pol  =  current->next_pol->next_pol ; 

--  Npol ;  } 
else 

current  =  current ->next_pol ; 

}; 

if  ( ! ( lp . if_zone_mark_polygon  ( *head_pol->content ,  Nzones,  zoneDmax,  zoneP) ) ) 
{head_pol  =  head_pol->next_pol ; 

—  Npol;  } ; 

return; 


} ; 


//  Procedure  to  mark  polygons  of  a  list  of  polygons  with  zone  probabilites 
//  according  to  their  location  with  respect  to  a  box.  If  the  centers  of  the 
//  polygons  are  outside  of  the  box,  they  are  discarded,  and  if  the  centers  are 
//  inside  the  box,  the  polygons  are  retained  only  if  a  randomly  generated 
//  number  is  lower  than  a  given  probability. 

void  ListPolygons : :mark_by__box (Box&  ZB,  double*  zoneP) 

{ 

Node*  current  =  head _pol; 
while  (current  ->  next_pol) 

{ 

if ( ! (ZB. if_box_mark_polygon(*current->next_jpol->content,  zoneP) ) ) 

{ 

if  ( current ->next_pol->next_pol) 
delete  current->next_pol->content; 
current->next_pol  =  current->next_pol->next_pol ; 

—  Npol; 

} 

else 

current  =  current - >next_po 1 ; 

}  ; 

if  ( ! ( ZB . if_box_mark_polygon ( *head_pol->content ,  zoneP))) 

{ 

head_pol  =  head_pol->next_pol ; 

--  Npol; 

} ; 


return; 

}  ; 


II  Function  to  consider  the  size  of  a  polygon  in  the  pdf  of  fracture  sizes. 
//  The  function  finds  the  specified  "zone"  by  polygon  size  and  increases  the 
//  number  of  polygons  that  have  such  size  specified  by  Amin  <  Apol  <  Amax. 

void  Polygon  ::  include_in_size_pdf  (int  Nzones,  int*  Nin_zones,  double* 
■maxAratio,  double  MeanA) 

{ 
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int  i  ; 


for  ( i=0 ;  i<Nzones;  ++i) 

{ 

if  ( (area/MeanA)  <  * (maxAratio+i) ) 
{  ++  * (Nin_zones+i) ; 
return; } ; 

}  ; 


++  * (Nin_zones  +  Nzones); 
return; 

}  ; 


//  Function  to  find  the  size  distribution  of  a  list  of  polygons 

void  ListPolygons : ;  size_distribution  (int  Nzones,  int*  Nin_zones,  double* 
/  maxAratio,  double  MeanA) 

{ 

int  i  ; 

for  (i=0;  i<Nzones;  ++i) 

Nin_zones[i]  =  0; 

Node*  current  =  head_pol; 

while  (current) 

{ 

current->content->include_in_size_pdf  (Nzones,  Nin_zones,  maxAratio,  MeanA) 
current  =  current->next_pol ; 

} ; 

return; 

}  ; 
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